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EL PASO MAS SERIO 


PARA EL SPECTRUM 


por fin ha llegado. 


Lo más nuevo para tu Spectrum, 
INVESTRONICA te ofrece 


el sistema de discos. 


ІНто en la tecnología de microinformártica. 


Ve e informate en 


tu concesionario INVESTRONICA. 
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PROGRAMAS DE GESTION. 
ANALIZAMOS EL SITI. Base de datos 
y hoja electrónica, todo en un solo 
programa. 


LOGO: TORTUGAS PARA TODOS. 
Profesionales del campo educativo e 
informático estudian las posibilidades del 
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escuelas. 


INTERRUPCIONES DEL Z-80. 
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Nombrar a Marbella es nombrar al turismo, como bien 
lo saben los malagueños, preocupados por el estudio del 
inglés que les facilite el puesto de trabajo. A la fiebre del 
turismo que amplía el número de habitantes de 80.000 a 
300.000 en verano, se ha unido recientemente la 
imperable fiebre del Spectrum. Una pequeña academia 
especializada en matemáticas y física para estudiantes de 
BUP y COU, ha incorporado el Spectrum. 
TODOSPECTRUM le ofrece su mejor programa. 


ste programa está pensado y 
realizado para ayudar a es- 
tudiar con menos esfuerzo 
una parte importante de la 
teoría de funciones, siendo 
licaciones didácticas muy 
y su uso aconsejable a pro- 
fesores y alumnos de BUP-COU. 

Empecemos dando una defini- 
ción sencilla. Una función (real de 
variable real) es una expresión ma- 
temática que transforma un núme- 
ro real en otro: 

F(x) 

Х- Y conX, Y 
pertenecientes al conjunto R. 

Para representarla nos ayuda- 


de funciones 


mos de dos ejes (líneas rectas) for- 
mados por infinitos puntos alinea- 
dos, representando cada uno de 
ellos a un número R, y situándolas 
perpendicularmente,  cortándose 
en un punto llamado origen de 
coordenadas (0,0). Buscaremos el 
punto correspondiente al número 
real x en el eje OX y el correspon- 
diente al número Y=F(x) en el eje 
ov. 

Este par de nümeros ordenados 
definen un punto del plano R de 
coordenadas (X, Y). Al conjunto 
de puntos obtenido dando a X va- 
lores reales se llama GRAFO de la 
función F(x) Para una función 
dada, puede haber nümeros reales 
X (puntos) que no tengan transfor- 
mados (imágenes de X), es decir: X 
> 7; en este caso en el grafo habrá 
puntos o conjuntos de puntos que 
faltarán, los ordenadores y calcula- 
doras se bloquean (dando error) ya 
que la representación es imposible 
en estos intervalos (que no perte- 
necen al dominio de F(x). Este 
programa resuelve el problema de 
distinta manera según el tipo de 
función que estemos estudiando. 
Para funciones como LNx, cuyo 
dominio de definición lo forman 


Un sencillo cambio de escalas, permite analizar 
en detalle cualquier función. 


los números reales positivos, el 
programa dispone los ejes de ma- 
nera que la representación gráfica 
se realice sólo para estos valores de 
X mediante traslación de ejes. En 
el caso de funciones tales como 1/x 
SEN x/x, cuyo dominio está for- 
mado por todos los números reales 
excepto el cero, el programa salta- 
rá todos los valores que hagan al 
denominador menor que una mi- 
llonésima. Es decir, para funciones 
que tengan asíntotas verticales 
(F(x) tiende a infinito), el ordena- 
dor evitará darle esos valores, con 
lo cual queda resuelto el problema. 
Expliquemos el funcionamiento 
con ejemplos prácticos. 

Vamos a empezar nuestra anda- 
dura desde el principio, suponien- 
do que ya hemos «tecleado» el 
programa y lo tenemos copiado en 
una cinta. Búsquelo e introduzca 
la sentencia LOAD “”, Le pregun- 
tará una vez terminada su carga, 
por el color del papel en el que se 
va a realizar el grafo de la función 
y aparecerá en la pantalla el menú 
resumen. En él podrá observar dos 
partes: la superior donde están in- 
dicadas las teclas utilizadas y su 
disposición en el ordenador y la in- 


ferior donde se indica el uso de las 
mismas, En las dos últimas líneas 
de la pantalla verá: «S SELEC- 
TOR». Llamamos selector a la 
parte del programa que puede ma- 
nipular los parámetros o valores 
que hacen falta para la representa- 
ción. Llamamos modo GRAFICO 
a la parte donde se realiza ésta. 
para pasar a éste último, desde el 
selector, basta pulsar ENTER. 
Pero antes, después de pulsar ((S)), 
tendremos que darle al ordenador 
los datos que nos pide. Nos pre- 
guntará por el numerador; intro- 
duzcamos, por ejemplo, SEN x. 
Después el denominador: x. No 
ponga ((/)), sólo ENTER. 51 come- 
tió algún error al introducir el nu- 
merador, cuando le pida el deno- 
minador introduzca “0”, esto lo 
entenderá como que desea cambiar 
el numerador. Si la función es un 
polinomio o no posee denomina- 
dor, hágale valer uno pulsando di- 
rectamente ENTER. 

Si posteriormente desea cambiar 
la función, pulse ((4)) cuando el 
modo sea selector. Si ésta posee 
potencias de x se deben introducir 
en forma de producto reiterado 
para valores negativos de X y en su 


forma «BASIC» (1) para valores 
positivos. Es decir: x elevado al 
cubo entre -10 y 10 debe expresar; 
se como x*x*x y si se representa, 
utilizando la traslación, entre 0 y 
20 se puede introducir хї3. En el 
numerador no se pueden utilizar 
denominadores que tiendan a cero 
en el intervalo de representación: 
NUMER F(x) = TAN x; DENOM 
F(x) = 1, bloqueará el programa. 
Sin embargo, haciéndolo de esta 
otra forma no: 

NUMER F(x)- "SS 

DENOM F(x)2 COS x. 

Después de introducida la fun- 
ción sen x/x, nos pedirá los valores 
entre los que queremos represen- 
lar. Nos pedirá dos: uno para los 
valores de x (ESCALA X Ex) y 
otro para F(x) (ESCALA Y-Ey). 
Introduzcamos: Ex=30; Ey=1. En 
este caso la variable independiente 
x tomará valores comprendidos 
entre -30 a 30 y el punto imagen 


entrará en pantalla si está com- 
prendido entre -1 y 1. Ahora si 
pulsa ENTER pasará al modo grá 


fico y se realizará la representación 
gráfica. En la parte superior de la 
pantalla observará un número en 
«papel» rojo donde pone: D.P. 
Esto es la Densidad de Puntos y 
marca el incremento que quere- 


110 REM ANDRES JESUS SANCHEZ 
120 REM MANOLI FERNANDEZ 6. 


180 BRIGHT O 
190 CLEAR 
200 INFUT 
"¡pa 


380 GO SUB 2630 


100 REM XXXXXDXDODODODOODOOODOEE 


130 REM XXXXXXDOHOOOOOOOOOO ЕЖ 


"COLOR PAPEL ? (0-3) 


210 IF pa»3 OR ра<0 THEN ВЕЕР 


mos que tenga la X. ahora, con va- 
lor dos, el incremento de 
x=30*2/80; en general, si llama 
mos N a la densidad de puntos. 
obtendrá un incremento de 
¿Xx *N/80. La densidad de puntos 
se cambia pulsando ((N)) en modo 
selector. Si desea cambiar en el 
mismo modo, Se pueden introdu- 
cir operaciones indicadas como 
“2*ኮ1” y si comete error al intro- 


390 бб TO 826 
400 REM XXXXGRAFO 488 

410 FOR n--80 TO BO STEP b 
420 LET x-n*s/BO 


430 IF ABS FN d(x-i)<1E-6 THEN ; 


60 TO 490 


440 IF dd=0 THEN LET y=FN f(x- 


i) 


LET b$(v,1 TO 3 


ducir Ex, meta “0” en Ey, pidién- 
dole de nuevo Ex. Resumiendo (en 
modo selector): 

MENU ((M)) - (9)) 

CAMBIO DE Е(Х)-((4)) 

CAMBIO DE ESCALAS -((6)) 

CAMBIO DE DENSIDAD P. 
(№) 

Nos podríamos hacer ahora una 
buena pregunta: ¿Estoy obligado a 
ver siempre el grafo de la función 


)e"X"4STRS v+"=": LET b$(v,4 TO 
B)=STR$ x(v): PRINT AT 3*v,O; PA 
PER 3; INK ijbS(v): NEXT v 

540 IF rp=1 THEN PRINT AT 19,0 
» "¡AT 21,0;" ^" 
50 TO 420 

550 LET x=(nks/80) ARE 
560 IF ABS FN d(x-i)<1E-6 THEN 


450 IF dd=1 THEN LET y=FN g(x- 60 TO 760 

.5,0: 60 TO 200 i» 570 1F dd=0 OR dd=3 THEN LET y 
220 POKE 23609, 36 460 IF dd=2 THEN LET ysFN h(x- =FN £(x-i) 

220 REM XXXx****DEF FNXGOODUE із ЭВО IF dd=1 THEN LET y=FN g(x- 
240 DIM 1$(11,8) 470 IF ABS y<k AND ABS «5 THEN i) 

250 DIM b$(5,8) PLOT ІМК 7-dd3152+n,87+y*B80/k 590 IF dd=2 THEN LET y=FN hix- 
260 DIM e$(2,3) АВО IF PEEK z248 THEN POKE z,6 i) 

270 DIM a$(1,3) 4: PRINT AT 20, "5 60 00 IF dd-Z THEN LET u=x: LET 
280 DIM x(5) TO 820 X*FN f(x)*it LET y=u-j: IF rr=0 
290 DIM p$(2,8) 490 NEXT n THEN LET ፀቆ(‹1)=ፎፐፎዩ (INT ((x-i) 
300 DIM g$(1,8) 500 60 TO 780 X1E3+.5)/1E3): LET p&(2)-STR$ (I 
310 DIM o$(1,8) 510 REM Жж М. GRAFICOXXK NT (yk1E3+.5)/1E3): PRINT INVER 
320 DEF FN n(x)=VAL n$ 520 FOR n=-80 TO BO STEP b SE 1ҘАТ 1,0;0%(1);АТ 3,0; p (2) 
330 DEF FN d(x)=VAL d$ 530 IF PEEK 2=108 AND rr=0 AND 610 IF rr<>0 THEN LET yy=y: LEl 
340 DEF FN ЖОО-ҒЫ nGO/FN d(x) | ddé»3 AND 4<21 AND gt<>1 THEN L Т хх=х: LET y=xWSIN rr*yXCOS гг: 
+3 ЕТ гр=1: POKE 2,64: FOR LEÍ «=x4COS rr-yyXSIN rr: LET pl 
550 DEF FN g(x)=(FN #(х+һ)-ЕМ f ; PRINT AT v,Or" 2 NEXT — $(1)-8TR$ (INT (xXk1E6+.5)/1E6)1 
(4))/ክ*, vs PRINT AT 2,0; BRIGHT 15 "ШУБКА LET ር (2)=8፲8ቁ (INT (ሃቆ1ፎል+,5)/1 
360 DEF FN (х) (FN gíx+h)=FN Ө БОЗ": IF x(1)<>0 OR x(2)<>0 OR x E6): PRINT AT 1,03p$(1);AT 3,05p! 
(5)) /h+3 (3)<>0 OR х(4) <>0 OR x(5)<>0 THE $(2) 

370 G0 SUB 2710 М FOR v=1 TO 2: 


620 IF +=1 AND «>=መ«2 AND x<x3 T 


en los alrededores del origen de 
coordenadas? La respuesta es no. 
Disponemos de la tecla ((7)) que 
nos permite mover la función so- 
bre la pantalla de TV. A esto lo he- 
mos llamado TRASLACION. Si 
en la función que tenemos en estu- 
dio, (sen x/x), con escalas Ex = 30 y 
Ey= 1, introducimos un cambio en 
((6)), haciendo Ex = 10 y Ey =.7 y 
trasladamos la función mediante 
((7)), haciendo Tx = 
veriamos que los ejes y la función 
se han desplazado (trasladado) ha- 
cia el punto (-9, -.35) con referen- 
cia a la escala. Pruebe para otros 
valores: 

Tx=9 y Ty 2—35 etc. 

Si cuando le pregunta Tx pulsa 
ENTER y hace lo mismo con Ty, 
entonces Tx y Ty tomarán el valor 
cero. 

Con este programa se puede pro- 
vocar también la rotación de F(x) 
alrededor del centro de la pantalla. 
Esto se consigue pulsando ((8)) e 
introduciendo un ángulo en gra- 
dos. Si introduce ENTER como 
valor del ángulo, éste valdrá cero. 
Pruebe: TECLA 

(4) NUM =x*x ; DEN=5 

((6)) Ех- 

(7)Тх-1; 

(8) ANGULO =90 


9 y Ty=-35,, 


Déle otros valores al ángulo 
como 180, -90, etc. Pulse ENTER 
cuando quiera representar. 

Todo lo mencionado se puede 
ejecutar en el modo selector. 

¿Qué se puede hacer mientras se 
lleva a cabo la representación? 
Tres cosas: 

1. Pulsando ((P)) se paraliza la 
ejecución de ésta, quedando un va- 
lor de x y su correspondiente F(x) 
impreso en la pantalla. Si pulsa: 
mos ((P)) de nuevo le daremos a x 
el valor siguiente y así sucesiva- 
mente. Para continuar la represen- 
tación pulsar, por ejemplo ((Ј)). 

2. Pulsando ((ENTER)) au- 
mentaremos el incremento de x, 
representando menos puntos y 
más rápidamente. Se desactiva 
pulsando, por ejemplo ((Л). 

3. Pulsando ((0)) dejamos de 
representar y volvemos al modo 
selector donde, si pulsamos de 
nuevo ((0)), borrará. MODO ((0)). 


Gráfico (nos lleva al 
selector-borra pantalla) 


Mientras dura la representación 
van apareciendo los valores de x y 
de F(x), así como los valores que 
poseen, en ese momento, Ex, Ey, 


Tx, Ty, ANG, Función, N, etc. Si 
no tenemos mucho interés en ver 
los valores de x y de F(x) podemos 
ejecutarla más rápidamente pul- 
sando ((L)). A esta orden la hemos 
llamado GRAFO, ya que es eso lo 
que hace sin más. Esta orden se 
puede ejecutar tanto desde el 
modo gráfico como desde el selec- 
tor. Es irreversible, es decir, una 
vez pulsada ((L)) en modo gráfico 
no se puede desactivar. En modo 
selector se puede hacer pulsándola 
de nuevo. Dándole а N, en ((М)), 
valores grandes (de 4 a 10 por 
ejemplo) y pulsando ((L)) se pue- 
den conseguir representaciones de 
poca densidad de puntos pero rá- 
pidamente ejecutadas. Esta orden 


HEN LET ff-ff*ABS y*s/8O: LET 1 
$(4,1 TO b)=STR$ (INT (4፳10፦.5) 
/10): LET 1$(4,7 TO В)="%А": PRI 
NT AT 7,0; PAPER 311$(4): IF ABS 
усак THEN POKE 23677, 152+,880/ 
FOKE 2578,87: DRAW ІМК 7-99 
0, yX8O/k 
630 IF 4-і AND x>=x2 AND хх A 
ND ABS уук THEN POKE 22677, 152+ 
x380/s: POKE 23678,87: DRAW INK 
7-99;0,80%56 у 
640 IF 4-1 THEN LET p$(1)-8TR$ 
(INT CGOX1E6*. 5) /1E6) : LET pst 
2)=STR$ (INT ((FN Ж(х-1))%1Е6%.5 
)/1E6): PRINT AT 1,0; p$(1);AT 3, 
0:р% (2) 
650 IF ABS уск AND ABS xcs THEN 
PLOT INK 7-dd;152*x*80/s,87*y 
X80/k 
650 IF 882 AND rf=0 THEN LET 
8(2)=8፲ዩቄ (INT (CEN (8-5))->3 
)X1E6+.5)/1E6)1 LET p$(1)=6TR$ ( 
INT_((x-1)XK1E6+.5)/186): PRINT 
INVERSE 14ልፐ 1,0;p$(1);AT 2,0:р% 
(2) 
670 IF dd=1 AND rf=0 THEN LET 
95(1)=8፲8፳ፄ (ІМТ (((ዞክ 9(5-1))-3) 
*1E2«.5)/1E2): PRINT INVERSE 1; 
AT 5,0495(1) 


ሬፀዐ IF dd=1 AND 4-і THEN LET g 
#(1)=5፲8ቆ (INT (уж1Е2+,5) /1E2) t 
PRINT AT 5,0; INVERSE 1;9%(1 

690 IF dd-2 AND rf=0 THEN LET 
0% (1) =5ТЕФ (INT. (((FN h(x-1))=3) 
%1Е2%.5)/1Е2): PRINT INVERSE 1; 
АТ 5,0:0%(1) 

700 IF dd=2 AND f=1 THEN LET o 
$(1)=STR$ (INT (yk1E2+.5)/1E2): 
PRINT INVERSE 14ፅፐ 5,0;0%(1 

710 IF gt=1 AND በ>= (81+4) #80/ኗ 
AND x1+i<>s+i THEN POKE 2,52: 
ЕТ сөзі: PRINT AT 19,05" 

"РАТ 20,03" “JAT 21,03% 
“: GO TO 1240 

720 IF PEEK z-13 THEN LET пеп» 
3: PRINT AT 0,18: "E" 

730 IF PEEK 2<>15 THEN PRINT А 
፲0,188" " 

740 IF PEEK z-112 THEN PAUSE О 

750 IF PEEK z-48 THEN PRINT AT 


18 


1,03" "рат X,0," 

"тат 5,03" “ЗАТ 19,03" 
"РАТ 20,03" "AT 21, 
"РАТ 1,0: LET р=1: LE 


LET ggtt-0: LET ff=0: 60 


760 IF p=1 THEN 
T вор" 


INPUT **፥ PRIN 
"у INVERSE 13" 


PULSA J ": PAUSE 0: FRINT AT 1, 
ор" “AT 3, UTI 
T 5,0" "а GO TO 1160 
770 NEXT n 


780 КЕМ *XREPONE VARIABLES 
790 IF гр<21 THEN PRINT AT 1,0 


D “AT 3,03% "Ат 

5,о;" "RAT 10,03" 

ВОО PRINT АТ 19,04" "ат 

20,0," "ЗАТ 21,04” 

"SAT 0,187" " 

810 IF #=1 THEN ВЕЕР .1,-20: B 

EEP .1,-20: INPUT "": PRINT 804" 
FLASH 1; INVERSE 15 

" PULSE J ": PAUSE O 

820 LET s LET +=0: LET ##=0 
LET sf-0: LET ggtt-o 


LET ад=0: L 


820 POKE 2,64: BEEF .05,0: ВЕЕР 
.05,0: FOR n-7 TO 1 STEP —1; PA 
USE 3: BORDER n: NEXT n: GO TO 1 
650 


B40 REM Жжж TABLA VALORES #8፤ 
850 CLS 

B60 LET dd=0s 
О": LET sa=0 
870 PRINT AT 5,8; 


LET р=0: LET ሃቆ=" 


INVERSE 1; "Та 


es incompatible con la rotación 
((8). Es muy práctico cuando lo 
que deseamos es tener una idea so- 
bre la forma del grafo de la función 
sin que nos preocupe los valores 
que toma. 

Con lo explicado hasta el mo- 
mento ya sería suficiente para que 
este programa tuviese aplicaciones 
importantes: Teorema de Taylor, 
de Rolle, del valor medio, etc. 
¿Qué podemos hacer si lo que que- 
remos es dibujar o estudiar los va- 
lores que toman la primera deriva- 
da (F' (x)) o la segunda derivada 
(F” (x)) o la función inversa (Finv 
(x)) de la función F (x)? Podrían 
calcularse éstas e introducirse en 
[(4)) pero esto no es necesario: 

Si pulsa ((1)) tendrá a su disposi- 
ción la primera derivada; si pulsa 
((2) la segunda; si pulsa ((3)) la 
función inversa y en ((9)) la fun- 
ción F (x 

Para la función inversa no actúa 
((L)). Las órdenes que no compati- 
biliza el programa las puede ir 
viendo sobre la práctica, 

Si elige ((9)) dibujar la función 
con tinta blanca. Si elige ((1)), la 
derivada, con tinta amarilla. Si eli- 
ве ((2)), la segunda derivada, con 


BLA DE VALORES": PRINT AT 11,84" 
ABSC. X";AT 12, 121"ዐ080፳. Ү";АТ 1 
5,163 "DERIVADA" 


880 PLOT 20,20: DRAW 215,0: DRA 
W 0,135: DRAW -215,0: DRAW O,-13 
5 

890 INPUT FLASH 14" INCREMENTO 


xo нр" 


“1115 LET 1-80k11/s: CLS 
THEN GO 70 1050 
910 PRINT $0; PAPER 214" АВС. 

X  ORDE. d 


950 IF ABS FN d(x-i)41E-ó THEN 
G0 TO 1020 

960 LET p$(1)-STR$ 
1E5*.5) /1፳6)፣ 
T CIEN የ፻ (:-3)-3) ሄ፤ፎሬ+,5) /1E6) s L 
ET g$(1)-8TR& (INT ((FN gGr-i)- 5 
)X1ES*.5)/1E3): PRINT TAB 218ቆ(1 


QNT (Gci)x 


)TAB 1245 АВ 22:9$ (1) 

970 ВЕЕР .02,12%65М (FN g(x-i)- 
4) 

980 IF sa=22 THEN LET p: INP: 
UT "": PRINT WO; INVERSE 13" Со 
ntinuo ?-(s/n) ": PAUSE O 


990 IF р=1 AND PEEK 2=115 THEN 
CLS : LET sa-0: INPUT "": PRINT 
PAPER 2; 


LET p$(2)=STRS (IN: 


tinta cyan y si elige ((3)), la función 
inversa, con tinta verde. Esto nos 
permitirá estudiar todo lo relativo 
a máximos y mínimos, crecimien- 
to, concavidad, puntos de infle- 
xión, etc., de la función F (x) intro- 
ducida en ((4). Es aconsejable, 
para rotaciones y para la Finv (x). 
tomar Ex = Ey. 
Ejemplo: 


M. 


" ABSC, X 
iUe 
1000 IF pei AND PEEK =<>115 THEN 


ORDE. Y 1 DERI 


CLS : POKE z,64: GO SUB 2630: 
60 TO 1450 
1010 LET p=0 
1020 NEXT n 
1030 INPUT. "": PRINT &O; INVERSE 
1; FLASH 1;" DE NUEVO ? (s/n) " 
т PAUSE 0 


1040 IF PEEK z=115 THEN CLS : 6 

о TO 850 

1050 IF PEEK z<>115 THEN POKE z 
r64: CLS : LET p=1: GO SUB 2630: 
80 TO 1650 

1060 REM Жжжж PARAMETROSXXK 

1070 FOR x=1 TO 5 
1080 PRINT AT 21,03 
("px") a INPUT ሃቅ 
1090 IF yó="" THEN GO TO 1120 
1100 LET x(x)=VAL y$ 

1110 LET b$OO-STR x 60 

1120 NEXT x 

1130 PRINT AT 21,0," " 
1140 POKE 2,64: LET p=1: LET qq= 

о 

1150 RETURN 

1160 REM ጸጁቋሄሄሄጾ SELECTOR ሄ#፤## 

1170 POKE 2558,0 

1180 IF PEEK z=120 THEN GO SUB 

1060 


FLASH 14 X 


En((4) МОМ =SEN ; DEN =x 

En ((6)) Ex=4; Ey=.8 

En ((7)) Тх=0; Ту=-.32 

En ((N)) D.P.=1 

En ((8) ANG = ENTER <> 
Ang=0 

En ((q)) Para elegir F (x) 

Pulse ahora ENTER y la repre- 
sentación de F(x) se llevará a tér- 
mino. Cuando haya finalizado 


GRAFICO 


1190 IF PEEK z=110 THEN PRINT 

PAPER 6; INK O;AT 21,0; FLASH 13 

PUNTO": INFUT b: PRINT AT 21 

03% LET qq=0: LET р=1 
POKE 2,64: IF b=0 THEN POKE z 

,110: 60 TO 5015 

1200 IF PEEK :-107 THEN PRINT A 


T 21,0; INVERSE 1; FLASH 1; BRIG 
HT 13"ABSC. X?": PRINT INK 5ҙАТ 
),0;"ABSC. Х";АТ 2,0;"ORDE. Y 
INPUT x: LET xex*i: PRINT АТ 

; i LET r 
FOKE z,64: GO TO 

1210 IF PEEK 2=108 AND rp=0 THEN 


LET гр=1: LET $=0: LET rr ር 
ET r$-"O"; LET gt=0: LET ፀ=1፥ PO 
KE 2,64: IF d THEN LET dd=0 
1220 IF PEEK 08 AND rp=1 THEN 

LET rp=0: LET pei: POKE z,64 
1220 IF PEEK z-111 THEN LET r$- 
"оға LET ss=01 LET ##=0: LET 4 


1 LET р=1: LET gt=0: LET ggtt=0: 
LET dd=0: LET rr=0: LET і=0: LE 
T із0: LET qq-0: INPUT "": PRINT 
80" BORRO:7 8 i w ### DEJO:q 
ል "1 PAUSE 100: BEEF .05,10: IN 
PUT "": POKE 2,64 

1240 IF PEEK 2=52 OR е=0 THEN Р 
RINT FLASH 1;AT 21,0; BRIGHT 1; 
INK O;"NUM F(x)": INPUT ¿n$: PR 


ésta, pulse ((1)) seguido de ENTER 
y aparecerá el grafo de F'(x). Repi- 
ta la operación para ((2)). Si desea 
efectuarla rápidamente pulse pre- 
viamente ((L)). Finalizada la últi- 
ma gráfica tendremos en pantalla 
las tres representaciones simultá- 
neamente. 

Un estudio aparte requiere la re- 
presentación de CONICAS ya que 


M. 


posee una pequeña diferencia con 
respecto al que se hace de las fun- 
ciones en forma explícita. En éstas, 
puede cambiar los valores Ex, Ey, 
Tx, etc., cuantas veces quiera antes 
de representar la gráfica ya que no 
se realiza hasta que no damos la 
orden ENTER. En cónicas le pedi- 
rá el total de puntos a imprimir y 
no la D.P., además, le pedirá el se- 


mieje, mayor primero, el menor 
después y se cjecutará la gráfica sin 
esperar la orden ENTER. Además 
los ejes permanecerán en el centro 
de la pantalla aunque exista trasla- 
ción, comportándose ésta de una 
manera diferente y lo que se des- 
plaza ahora es la cónica y no los 
ejes. En pantalla tenemos también 
el valor de la excentricidad de la 
elipse o del área del círculo, segün 
el caso. Preparando previamente 
los datos podemos dibujar la elipse 
trasladada y rotada en la pantalla. 
Un apartado importante refe- 
rente a las funciones es el relativo a 


INT INK 0; FLASH 1; BRIGHT 1;AT 
21, 01"8ጅክ Fe)": INPUT ;d$: PRI 
NT AT 21,6 ": LET 98=0፥ 
LET p=1: РОКЕ 2,64: IF gt=0 THE 
N 60 TO 1300 

1250 IF dé="0" THEN POKE 2,52: 
80 TO 1240 

1250 IF d$-"" THEN LET dé="1" 
1270 IF gt-1 AND cg=1 THEN PRIN 
T AT 21,0; INVERSE 1; FLASH 1; B 
RIGHT 1;"HASTA X?": INPUT x$: LE 
T x1-VAL x$: LET rp=0: PRINT АТ 
21,01 ": POKE z,64: LET 
c 

1280 IF gt=1 AND cg=1 THEN LET 
iisir LET jj=j: POKE 2,64 

1270 IF gt=1 AND cg=1 AND ggtt 
O THEN 60 TO 1160 

1300 IF dé="0" THEN POKE 

60 TO 1240 


THEN LET d 


IF PEEK 


RINT FLASH 1 
INK 0; "ESCALA X": INPUT ;s$: 
INT FLASH 1; INK BRIGHT 1;AT 
21,03 "ESCALA Y": INPUT ¿k$: FRI 
NT АТ 21,03" ": LET s=ABS 
(VAL s$): LET k=ABS (VAL k$): L 
ЕТ езі: LET р=1: LET qq-0: POKE 


2,64 
1340 IF 5=0 OR 

54: 60 TO 122 
1350 IF PEEK 
О: LET qq 


THEN РОКЕ т, 
2=112 THEN LET dd- 
LET p=1: POKE 2,64 
1360 IF PEEK 2=49 THEN LET dd= 
5 LET qq=0: LET р=1: POKE 2,64 
1370 IF PEEK z-50 THEN LET dd-2 
% LET qq-0: LET р=1: POKE z,64 
1380 IF PEEK 2>5ሬ THEN GO TO 1 
420 
4290 PRINT FLASH 1; BRIGHT 1፤ጸፐ 
21,0; INVERSE 1;"ANGULO “3 INP 
UT ir$: PRINT АТ 21,03" " 
+ LET qq LET ереді LET pei: P 
ОКЕ 2,4 
1400 IF r$-"" 
1410 LET rr=VAL r$3PI/180 
450 THEN LET : LET ቆ*=0 
1420 IF PEEK z-119 THEN LET gt- 
1: LET гр=0: LET cg: LET p 
POKE 2,52: GO TO 1240 
1430 IF PEEK 2(255 THEN GO TO 1 
480 
1440 PRINT 


IF rr 


THEN LET r$ 


FLASH 1:AT 21,0; BRI 

GHT 1; INK O;" TRASL. X": LET p 

жі: INPUT ;i$: PRINT BRIGHT 1; 

FLASH 187 21,0; INK 0 

TRASL. Y": INPUT };%: PRINT АТ 2 
": LET 99=0: POKE z 

THEN LET dd=0 


IF dd=3 


1450 IF i$-"" THEN LET i 
1460 IF j$-"" THEN LET j$="0" 
1470 LET i=VAL i$: LET j-VAL j$ 
1480 IF FEEK z-51 THEN LET d 
з LET Г LET LET j-0: LE 
T =04 LET ff LET aq 
POKE 2,64 

1490 IF PEEK 
1530 

1500 LET 4 
8 LET r$-"O 
3 FLASH 1; 
INPUT h$: 
FLASH 1; 
INPUT wi 


LET 


105 THEN БО TO 


LET ri 
1,6 


LET rp. 
PRINT AT 


INV 
BRIGHT 13 "DESDE 


PRINT AT 21,0; I 
BRIGHT 1;"НА6 
LET р=1: PRINT 
+ POKE 2,64: 

THEN LET dd=0 

AND w$-"" THEN LE 
60 TO 1530 
-VAL w 


NVERSE 


TA x?" 
AT 21, 
IF dd-3 
1510 IF h$-"" 
T x2e-si LET x37: 
1520 LET x2-VAL h$: LET 
* 
1600 IF PEEK z-101 THEN PRINT ል 
T 11,05; "e>CONICA"sAT 0,185 
ET rp=0: PRINT АТ 21,0; PAPER 6 
INK 04 FLASH 1;"To PUNTO": INPU 
T b: PRINT AT 21,0;" "6 
O TO 2340 
1610 IF PEEK 2=99 THEN PRINT AT 
21,14; FLASH 1; BRIGHT O;" C>CU 
RSOR>": GO TO 2240 
1620 IF PEEK 2=117 THEN LET 


-———— nnn. RP ችም ОЧ 


la INTEGRAL. La integral defini- 
da entre dos límites representa el 
área comprendida entre la función 
y el eje de abscisas (eje OX). Para 
hacerla, pulse ((1)) y le pedirá los 
limites de integración. En caso de 
que quiera integrar entre los extre- 
mos de la pantalla, Ix = Ex y Ixx = 
Ex, pulse dos veces ENTER y cal- 

፡ área encerrada entre el 
grafo y el eje OX que se ve en pan- 
talla. Si quiere cometer pocos erro- 
res debe hacer N lo más pequeño 
posible (N .1) aunque en este 
caso tardará más en el cálculo y la 
representación. 

El comportamiento de los ejes 
sobre la traslación de los mismos 
en la integral, rotación, y función 
inversa es idéntico al que se expli- 
ca para cónicas. En estos casos, 
cuando hay traslaciones, lo que se 
representa es F(X-Tx) + Ty referi- 
do a la posición que ocupa los ejes 
que aparecen en pantalla. 

Ejemplo: 

Introduzca en ((4)) la función — 


Ey 
=0; Ty А 
((N)) la D.P. = N = 1, pulse ((1)) 


para reclamar la integral; intro- 


Таа ааа ааа ааа ERG 


LET сс=0: GO TO 840 
1630 IF PEEK 2=48 THEN LET ፎ=ዐ፣ 
LET cc=0: LET р=1: LET qq-0: PO 
KE 2,64: 60 SUB 2630 
1640 REM ЖЖЖЖ CONTROL PANTALLAS 
1650 IF (p=1 AND rp<>1) OR (p=1 


AND rp=1 AND x(1)=0 AND x(2)=0 A 
ND x (3)=0 AND x(4)=0 AND x(5)=0) 
THEN FOR tei TO 5: PRINT AT 3+ 
6,03" а NEXT t 

1660 IF rr=0 AND #=0 THEN LET r 
шо 


1870 IF гг<>0 DR f=1 THEN LET r 
ES 

1680 IF р<>1 THEN БО ТО 1940 
1685 IF р=1 THEN PRINT AT 21,14 


"М SELECTOR" 


1590 PRINT АТ 0,9;" "4 PR 
INT AT 0,9; BRIGHT O;"D.P.-";: L 
ET as(1)=STRS b: PRINT PAPER 2; 


85(1) 

1700 IF rp=0 THEN PRINT AT 0,0; 
INK S;"ABSC. X" 

1710 IF dd=0 THEN PRINT AT 11,0 
89". INK 1; "FUNCION" 

1720 IF rp=0 AND (rr=0 OR (ғғ<20 
AND 84=0) ነ AND rp=0 AND dd<>3 T 
HEN PRINT АТ 2,0; INK Si" FOO 
1730 IF dd=1 THEN FRINT AT 11,0 
1" 12DERIVA" 


эх 5 = = se 3 
s а РІ РІ 389 а 
E а ala 
m «ж әс ал ea 
kx жоса | 9:2 
аты x arzı ወ 9 ө ai 
А ጋ TIPP TEN: 


1740 IF ፀ8=3 AND rp=0 AND rr=0 T 
HEN PRINT AT 4,0; INK Sj" F'(x 
у" 

1750 IF dd-1 AND ዮዮ<>0 THEN PRI 
NT АТ 2,0; INK 53% F'(X) "фат 4 
03 à 

1760 IF dd=2 THEN PRINT AT 11,0 
5 "2»DERIVA" 

1770 IF dd-2 AND rp=0 AND rr=0 T 
HEN PRINT AT 4,0; INK 54" F**(x 
ya 


1780 IF dd-2 AND rr<>0 THEN PRI 
NT AT 2,0; INK 53% F''(x) ": PRI 
NT AT 4,07" 0 


1790 IF rp=0 AND dd<>1 AND dd<>2 
THEN PRINT AT 4,03" E 
1800 IF dd=3 THEN PRINT AT 11,0 
ЭЕ. INV": IF rp=0 THEN PRINT 
AT 2,0; INK 3; BRIGHT 1;"FCinv) 

хи 
1810 IF £O 
NT AT 7,03" 


AND rp<>1 THEN FRI 
"SAT 8,03% 


1820 IF gt=0 THEN PRINT AT 10,0 


1830 IF rp=1 THEN PRINT АТ 0,04 
pi “3AT 2,0; BRIGHT 1;"L>G 
RAFO»": IF x (1)450 OR x(2)<>0 OR 
X(G)4»0 OR x(4)<>0 OR x(5)<>0 T 
HEN FOR x=1 TO 5: LET b$(x,1 TO 
3)e"X"*STR& VAL "unen LET bs 


(x,4 TO BI=STR$ x G0: PRINT АТ 3 
**,0; PAPER 3; INK 1;b$ G0: NEXT 
x 
1840 IF gt=1 THEN PRINT АТ 10,0 
W»INTERV" 
1850 IF f=1 THEN LET 1$(4,7 TO 
8)="#ል"፥ LET 1$(4,1 TO &)eSTR$ f 
f: PRINT AT 7,0; PAPER 5:1%(4) 
1860 IF f=1 THEN LET 1$(5,5)-"t 
“5 LET 19(5,1 TO 4)=8፲ፐክቕ x2: LET 
1$(5,6 TO )=STR$ x3: PRINT АТ 8 
„О; PAPER 2315 (5) 
1870 IF rf=0 THEN LET es(1)=STR 
$ (s-i): LET e$(2)-STR$ (k-)): Р 
RINT INVERSE 1;AT 0,19195 (2) ; AT 
43, 221ወ5(1) 
1880 ፲፻ rf=1 THEN LET ወዩ (1)=8፲8 
$ в: LET est2)=STRé К: PRINT АТ 
0,195е%(2);АТ 11,293e$(1) 
1890 LET 1$(1,7 TO В)="Ех": LET 
1$(1,1 TO 6)=STR$ s: LET 1$ (2,1 
TO &)-STR$ к: LET 1$(2,7 TO 8)=" 
Ey": PRINT PAPER 5; INK Озат 13 
40:18 (D ЗАТ 14,0:1$ (2) 
1900 LET 1$(3,1 TO A)-STRS VAL r 
$: LET 1%(5,5 TO 8)-"XANG": PRIN 
T PAPER 2; INK 7;АТ 15,0;1%(5) 
1910 LET 1$(9,1 TO 6)=STR$ i: LE 
T 15(9,7 TO B)-"Tx": LET 18(10,1 
TO 6)=STR$ j: LET 1$(10,7 TO 8) 
T"Ty": PRINT PAPER 6; INK 13#ፐ 


2050 IF а>=50 THEN 


duzca primero -6.4 y después 6.4. 
Pulse ENTER y se ejecutará la or- 
den de integración. 

En matemáticas y física 
za muchas veces una func; 
nida en un intervalo siguiente y así 
sucesivamente. Para este tipo de 
funciones sirve el comando ((W)). 

Si pulsa ((W)) le pedirá una fun- 
ción que tendrá que introducir 
manteniendo todas las normas ex- 
plicadas para este caso y, poste- 
riormente, le preguntará “(HAS- 
TA?) dónde quiere realizar la re- 
presentación” con esa función. Si 
x, todavía es menor que Ex, le vol- 
verá a pedir otra y hasta dónde 
debe estudiarla, y así hasta que X 
> =Ex, en cuyo caso termina. 

Si en un momento dado desea 
anular la orden de integración, 
traslaciones, gráfica por intervalos, 
rotación o reponer la función, si 
estuviera elegida la inversa, pulse 
((0)). 

Las dos próximas órdenes nada 
tienen que ver con la representa- 
ción gráfica de las funciones y sí 
con sus valores. Supongamos que 
desea calcular la imagen de un nü- 
mero real o de un conjunto de ellos 
sin tener que hacer una representa- 


16,051$ (9); AT 17,051$(10) 


1920 LET a-LEN (የቆ+ፀዩ+"1")8 IF a 
429 THEN INPUT "": PRINT #0; IN 
VERSE 1; "Ye"; INVERSE О; PAPER 1 
jns; "/"3d$ 

1930 LET р=0 

1940 REM 


1950 IF PEEK 2=57 OR PEEK 2=109 
THEN CLS : 60 TO 2740 


1950 LET qq-qq*.1: IF 99>15 THEN 
LET qq-0: INPUT ""; PRINT #14 
INVERSE O;"ENTER > GRAFICO 444 ግ 

> MENU" 


1970 REM AXSALIDA А M. GRAFICO X 
1980 IF PEEK 2<>13 THEN GO TO 1 
160 

1990 LET 33=1፤ LET 3ҙ-ҙ: IF с=0 
AND cc=0 AND 1150 AND 3380 THEN 
60 TO 2020 

2000 IF ríz0 AND dd<>3 THEN 69 
8ህ8 2130 

2010 IF rf=1 DR dd=3 THEN LET + 
1205 LET ¿3=0: GO SUB 2130 

2020 IF £<>1 AND rp=0 THEN PRIN 
T AT 7,0," 

гозо IF 4-і THEN LET የ6 

2040 LET a=LEN (n$*d$)*1: IF а<5 
O THEN INPUT "": POKE 2,641: PRI 
МТ 0; INVERSE 1;"Y-"; INVERSE O 
у PAPER ір INK 73n8;"/"3d8 
INPUT "": PR 


ción. Para el primer caso tenemos 
((К)) y para el segundo ((U)). En 
((K)) le pedirá la “ABSCISA X" y. 
después de pulsar ENTER, le es- 
cribirá en la parte superior de la 
pantalla su F(X). En ((U)), le pedi- 
rá el incremento de x y aparecerá 
una tabla de valores en la que se 
incluye: X, F(x) у F(x), dando un 
sonido grave si la función es decre- 
ciente y agudo para creciente. 

Hay veces que se quiere estudiar 
como varían los valores de F(x) 
cuando varían algunos de los coefi- 
cientes que la componen. Por 
ejemplo: 

SEN x, SEN (2*x), SEN (-2*x), 
etc. Para ello disponemos de la 
sentencia ((Х)) en la que aparecen 
cinco parámetros: Х(1), Х(2), 
X(3). etc. a los que les daremos los 
valores que nos interese. Estos 
aparecerán en pantalla si pulsamos 
((L)) y no son nulos los cinco pará- 
metros. Para cambiarlos debe pre- 
sionar, de nuevo, ((Х)). Si en algu- 
nos de ellos pulsa ENTER, ese pa- 
rámetro mantendrá cl ültimo valor 
introducido en él. Para hacerlos 
desaparecer basta con darles el va- 
lor cero. 

Ejemplo: Pulse ((4)) e introduzca 


INT 801" No presento Р(х) " 
2060 PRINT АТ 19,0; "ENTER>RP"; АТ 
20,0; "O>SELECT"¡AT 21,0; "Р>РАКА 
R>" 

2070 IF rp=l THEN PRINT АТ 19,0 
3” “¡AT 21,0; 

2075 PRINT AT 21, in "м. Я 
2080 IF gt=l AND ggtt=1 THEN РО 
KE z,64: GO TO 550 
2090 IF 9ኒ=1 AND ggtt=0 THEN LE 
T ggtt=1: GO TO 520 
2100 POKE z,64 
2110 BEEP .05,0: 60 TO 510 
2120 REM 3888 TRASL EJES хаж 
2130 FOR а=! TO 19 
2140 IF ABS c<s1 THEN PLOT OVE 

R 11152+ር880/81, 7+889 

2150 IF ABS cc<ki THEN PLOT OV 

ER 117248kq,87*ccXBO/k1 

2160 NEXT q 

2170 FOR q=i TO 19 

2180 IF ABS ii«s THEN PLOT 152+ 
iix80/s,7*81q 

2190 IF ABS jj«k THEN PLOT 72+8 

89, 873 4580/ 

2200 NEXT q: IF ABS с<з1 AND INT 
(ck10/s1)=c410/s1 AND ABS сс<к1 
AND INT (ссж10/к1) =ссж10/кі AND 
INT (ፎቁ100/81)<>1ከፐ Gik100/s) 

AND INT (сс%100/81)<51МТ (334100 

/k) THEN PLOT OVER 11 152+ር880/ 


x(1)*SEN (x(2)*x) en el numera- 
dor. DEN = ENTER. Ahora pulse 
((X)) e introduzca sucesivamente: 
2, 3, ENTER, ENTER, ENTER; 
con lo que habrá hecho X(1)=2, 
Х(2)=3, Х(3) = Х(4) = X(5) 20. o 
sea, estar estudiando: 

2*SEN (3*x) 

Utilice Ех-РІ; Ey=2.5 

Por último, y no por ello menos 
importante, destacaremos lo que 
llamamos CURSOR PUNTUAL. 

Si tenemos realizada la repre- 
sentación de F(x) ¿por qué no in- 
tentar resolver las ecuaciones: F(x) 
=0; F(x) = 0; Ех) = 0? О si tene- 
mos en pantalla dos funciones F(x) 


$1,87*cc180/k1 

2210 LET 81=8፤ LET кізіп LET cei 
i: LET ርር=43 

2220 RETURN 

2250 REM **X* CURSOR ##88# 


2240 LET 22=0: LET vv=0 

2250 PRINT АТ 0,05 INK 5; "ABSC. 
X";AT 2,03 "ORDE. Y" 

2260 IF CODE ІМКЕҮФ=56 THEN LET 
zz=zz+1; IF 223279 THEN LET zz 


-79 

2270 IF CODE ІМКЕҮФ=55 THEN LET 
уу=му+1: IF vvOm79 THEN LET vv 
=79 

2280 IF CODE ІМКЕҮФ=54 THEN LET 
уу=му-1: IF уу<--79 THEN LET v 
у=-79 

2290 IF CODE INKEY$-53 THEN LET 
zz-z:-1: IF 22<=-79 THEN LET z 
2=-79 

2300 PLOT INK 9; OVER 1; BRIGHT 
1,152+22,B7+vv: PAUSE 15: PLOT 
BRIGHT 1; OVER 1; INK 9;152%::, 
87%уу 


2310 LET pS(1)=STR$ (INT ((224s/ 
BO-i)k1E6t.5)/1E6): LET p$(2)=ST 
R$ (INT ((vvkk/80- 5) X1E5*. 5) /1፳ሬ 
Әз PRINT АТ 1,0;p$(1) ; 8T 2,05 pt 


) 
2320 IF INKEY$-"c" THEN  FRINT A 
T 21,145" зат 1,03" 


y G(x) ¿por qué no resolver la 
ecuación F(x) = G(x)? Esto se pue- 
de conseguir mediante el uso de 
((С)). Pulsando esta tecla, aparece- 
rá en el centro de la pantalla un 
punto que puede ser desplazado 
con ((5)), (6). ((7)) y (8). Las 
coordenadas de ese punto apare- 
cen en pantalla y, por tanto, si si- 
tuamos el punto sobre la intersec- 
ción de F(x) con el eje OX, tendre- 
mos la solución de F(x)=0 y si lo 
hacemos sobre la función G(x), ob- 
tendremos el punto de corte de 
ambas funciones. Es muy práctico 
para saber las coordenadas de un 


"JAT 3,03" “5 POKE 2 
+64: LET qq=0: LET р=1: GO TO 11 
50 
2330 60 TO 2260 
2340 REM %%Ж% CONICAS Жжжж 
2350 FOR x=1 TO 5: PRINT АТ Sex, 
ор" "і NEXT к 
2360 LET a$(1)9STR$ b: PRINT АТ 
0,9; "T.P.-"; PAPER 21ልቅ(1) 
2365 PRINT АТ 21,14; "M. GRAFICO" 
2370 PRINT AT 0,0; INK S;"ABSC. 
X";AT 2,0;"0RDE. Y" 


2380 IF dd=1 OR dd=2 THEN PRINT 
AT 4,0%" * 


2390 IF #=1 THEN LET f=0: LET + 
#=0: PRINT AT 7,05" "АТ 
8,03" 


2400 IF gt=1 THEN PRINT АТ 10,0 


2410 PRINT AT 21,03 
ERSE 1;"SEMIEJE INPUT sm: PRI 
NT AT 21,0; FLASH 1; INVERSE 13" 
SEMIEJEY": INPUT sn: FOKE z,64: 
PRINT AT 21,0;" x 

2420 IF smesn THEN 
0; "KCIRCULO" 

2430 LET іі=0: LET jj-0: GO SUB 
2130 
2440 IF 
RINT 80; 
#8 "y"be “jeng” " 
2450 IF smssn THEN 


FLASH 1; INV 


PRINT AT 11, 


Р 
x 


ይጠረ>ሬቦ THEN INPUT "": 
INVERSE 15" а= "jsm" 
POKE 2,64 

INPUT "": PR 


punto de la pantalla. Si quiere des- 
hacerse de él, pulse de nuevo ((C)). 

Hay veces, cuando la función es 
muy larga, que al introducirla se 
sube a la pantalla. Esto ocurre so- 
bre todo con las funciones SEN X, 
COS X, LN X, etc. (siempre que 
sean muy largas). Esto es debido a 
que el ordenador cuenta las letras 


INT #0: INVERSE 1; 
2460 BEEP .05,0 
2470 IF smi»sn AND s=k THEN LET 
15(8,7 TO 8) ="хе": LET 1$(8,1 T 
0 6)=5TR$ (INT ( (808: ABS (smksm- 
snksn)/sm ж1Е6+,5) /1Е6): PRINT A 
T 12,0; PAPER 4; INK 0115 (8) 
2486 IF өтезп AND s=k THEN LET 
15(8,7 TO 8)="ሄል"ኔ LET 1$(B,1 TO 
&)-STR& (PI*emtem): PRINT AT 12 
‚О; PAPER ё; INK 0115(8) 
2490 LET e$(2)2STR$ st LET еФ(1) 
TSTR$ ki PRINT АТ O,19;e$ (D 1ልፐ 
31, 29)85(2) 
2500 PRINT AT 19,0; "ENTER;RP";AT 
20, 04 "O)SELECT"sAT 21, 04 "P>PARA 
в" 
2510 FOR 
2520 LET 


n=0 TO 2ЖРІ ӨТЕР 2kP1/b 
x=sMKCOS nti: LET y=snk 
SIN ntj: IF የኖ<ኑዕ THEN LET xi-( 
x-i)*COS rr-(y-;)*SIN rr: LET x2 
(4-3) 88፲ክ rr*(y-3)&COS гг: IF А 
BS (x1+1)<s AND ABS (x2+3)<k THE 
М PLOT 152+(x1+1)4B0/5,87+(x2+3 
)380/k 

2550 IF rr=0 AND ABS x<s AND ABS 
ሃና THEN PLOT 152««*80/5,07*y* 
во/к 

2540 IF ғе<20 THEN LET p*(1)=8T 
RS (INT ((x1+i)X1E6+.5)/1E6): LE 
T pS(2)=STR$ (INT ((42+3)X1E6+.5 
)/1፳6)፣ PRINT AT 1,0188(1)1ልፐ 3, 


de la cadena NUM/DEN y, si es 
menor que 29, la presenta en la 
parte inferior de la pantalla. En 
caso contrario no lo hace, pero el 
ordenador cuenta SEN X como 
dos letras y no cinco (contando el 
espacio). En este caso introduzca, 
por ejemplo, en el numerador, 
+0+0+... para sobrepasar las 29 le- 


O:p$ (2) 

2550 IF rr=0 THEN 
$ (INT (xX1E6+.5)/1E6): 
)eSTR$ (INT (уж1Е6+.5) /1፳6)፥ 
NT АТ 1,03p$(1);AT 3,01p$ (2) 
2560 IF PEEK z-48 THEN LET b=2 
POKE z,64: PRINT АТ 12,0," 

": GO TO 780 

2570 IF PEEK 2=112 OR PEEK 2=80 
THEN PAUSE О 

2580 IF PEEK z=13 THEN PRINT АТ 
O,18;"E"t LET nen*2XPI/b 

2590 IF PEEK 2<>13 THEN РКІМТ А 


LET p$(1)=STR 
LET p$(2 


T 0,18)" "= 

2600 NEXT n 

2610 PRINT AT 12,03" "зат 
0,181" "¡AT 1,03" "SAT 
K "PAT 19,03% * 

"ЗАТ 21,05" 

2620 POKE 2,64: LET b=2: LET р=1 
60 TO 780 

2650 REM %ЖЖЖЖЖ EJES CART. X** 


2640 PRINT AT 21,93" 
2650 FOR n=1 TO 10: 
3 BRIGHT 1; PAPER pa; 

“РАТ (21-п),9;" 

Mi NEXT n 

2660 FOR n=1 TO 19: PLOT 72+8%п, 
87: PLOT 152,7+8%n: NEXT n 
2670 PRINT INVERSE 1;AT 0,175 "Y 


PRINT AT n,9 


PRI | 


- 
^: PRINT INVERSE 1;АТ 10,30; ፅ 7 ፀ ዓ 0 
2680 PRINT АТ 0,29; PAPER 01"gFN 
"SAT 1,29; "IPD"18T 2,291 "250" 4ጸፐ q W 
2,29: "3FI";AT 4,29; INK 0; "4МЕ" e "Uu 1 9Q.P 
“ПАТ 5,29;" &CE";AT 6,29; РА 
PER 71"2፲ፎ"1ልፐ 7,29; "BRT"¿AT 8,2 
9) INK 7,"N"5 INK 03% K L ENT 
DP";AT 9,29 "Xi" ;AT 21,295 INK x 
7; "9MN* Non " 
2690 PRINT AT 12,29; "OBP";AT 32, 2770 IF p=1 THEN PRINT INVERSE 
?9"LGF";AT 14,29: WIN";AT 15,29 — 1; KDODOODODOCOODEHENUIODOE CODO 


1"1ለጸ"1ልፐ 16,29; OBV";AT 17,29:" жж" 

JeCN"; AT 18,29;"КУҒ"ҙАТ 20,29;"EE 2780 IF pei THEN PRINT " 

WAT 19,29; "UTE" 8 FNF 
2700 RETURN UNCION 0 BP BORRA PANT 1 FD Р 
2710 REM ЖК DEF VERIABLES KK RIM DER Р Р PARAR GRAF 2 SD 5 
2720 LET rf=0: LET ee=0: LET ере EGU DER በ BV BORRA VARI 3 FIF 
04 LET с=0: LET cc=0: LET 33=0 UNC INV І AR INTEGRAL | 4 NF N 
LET 54-0: LET cg-0: LET 28="0"፥ | UEVA FN е CN CONICA 6 CE E 
LET (8=*1"4 LET с%="О"з LET v$-" SCALAS W IN GRAF INTER 7 ТЕ T 
1፡9 LET ss=0: LET x2-0: LET к RAS EJE L GF GRAFO (АР) 8 RT ል 
i LET b-2: LET f=0: LET 44-0: LE NGU ROT K VF VALORES FN X Xi P 
T х1=80: LET ggtt-0:; LET gt-0: L ARAMETRO C C CURSOR U TB T 
ET rs="0": LET р=0: LET рр-О: LE ABLA | ЭОМММ MENU EENE 
T г-25560: LET 3=0: LET ዮር=05 LE NTER N DP No FUNTOS" 

T qq-0: LET e-0: LET dd-0: LET i 2790 INPUT "": PRINT 49)» s 
[тоз LET а=1: LET h=.001 >> "р INVERSE 14" SELECTOR 
12730 POKE 23658,0: INK 7: BORDER ": PAUSE O 

1: PAPER 15 CLS : CLS 2800 IF PEEK 2=115 THEN CLS : © 
(2740 REM ЖҰЖ MENU жж O SUB 2630: LET р=1: LET ባ=0፥ Р 
|2750 LET р=1 ОКЕ 2,64: GO TO 1160 


ES 


tras. Esto es poco probable que 
ocurra. 

Este programa puede parecer 
largo para teclear pero, como han 
visto, sus aplicaciones son impor- 
tantes. 

A los estudiantes aficionados a 
la “masacre” de marcianitos les di- 
ría que ellos tienen el mismo dere- 


IF pei THEN PRINT "1 2 


а 


2810 CLS 


cho a la vida que nosotros y que un 
micro-ordenador también sirve 
para otras cosas menos agresivas y, 
seguramente, más instructivas. 

Para practicar, utilice las funcio- 
nes y derivadas, que se hallan en el 
cuadro de la pág. 10. 


Andrés Sánchez 


ru 


оны 


GO TO 2740 


José Villena, Félix Peral y Carmina Pérez 
еп una de las clases de matemáticas. 


Al acabar las clases es cuando 
comienzan las “otras” clases. 
Para poder alcanzar el aprobado 
en unos casos, o para mejorar los 
conocimientos en otros, al finali- 
zar sus clases de BUP o COU, pe- 
quefios grupos de estudiantes se 
disponen cada día a aprender 
algo más de matemáticas, ayuda- 
dos por un buen programa de or- 
denador. 

Cabe preguntarse si no se corre 
el riesgo de olvidar la forma de 
resolución de una función. «El 
ordenador es una buenísima pi- 
zarra» comenta José Villena. 
«Tiene más retentiva que las fo- 
tos o la pizarra que nunca pue- 
den dar la idea de dinamismo». 

Con mucho, el más satisfecho 
es Andrés, profesor y autor del 
programa: «En el Spectrum tene- 
mos un pequeño laboratorio. 
Puedes ver los efectos, variando 
distintos parámetros, como en el 
típico problema de la polea, don- 
de al cambiar las masas puedes 
ver claramente la aceleración que 
se produce. Especialmente en el 
campo de la física existen mu- 
chos conceptos abstractos sobre 
los que el ordenador tiene mucho 
que decir. Hay algunos progra- 
mas de trigonometría, tiro obli- 
cuo, ondas, pero nada sobre ma- 
temáticas con una mínima serie- 
dad. La mayoría de los progra- 
mas didácticos sobre matemáti- 
cas presentan el inconveniente de 
no contar con que el denomina- 
dor de una ecuación puede valer 
cero, por lo que son frecuentes 
los errores a pesar de ser un tema 
trivial». 


a instrucción RST 56 (38H) 
I la utiliza el Spectrum para 
analizar el teclado y actuali- 
ШИШ zar la variable del sistema 
FRAMES. Se le llama me- 
diante la rutina de enmascara- 
miento. Si todo lo que necesitamos 
es comprobar si se ha pulsado una 
tecla, bastará con analizar el bit 5 
de la variable situada en la direc- 
ción 23611. Si está a 1 entonces se 
ha pulsado una tecla. 
Observe que esto hay que volver 
a inicializarlo. El código para la 
última tecla pulsada se encuentra a 
partir de la 23560. Con frecuencia 
será suficiente mientras se realiza 
la entrada de datos mediante el te- 
clado pero tiene sus desventajas. 
Primero, sólo se actualiza 50 veces 
por segundo (60 en América). De 
manera que no se puede efectuar 
una RES 5 inmediatamente segui- 
do de una comprobación del bit 5 
de 23611, ya que debido a la inte- 
rrupción, el teclado no se habria 
comprobado. Por otro lado, si la 
interrupción no está conectada, el 
teclado no se comprobará nunca 
hasta que lo intente. Pruebe a eje- 
cutar lo siguiente: 


LD HL, 23611 
RES 5.(HL) 

LD A, FF 

LD (22552), А 
RST 

XOR А 

ВІТ 5, (HL) 

JP Z, TECLAS 
LD A, (23560) 
TECLAS (cualquier cosa) 


Esto devuelve el código de la te- 
cla pulsada en el párrafo detallado 
con TECLAS y lo sitúa en el regis- 
tro A, o pone O si no se ha pulsado 
una tecla. 

En la rutina anterior la instruc- 
ción LD HL, 23611 se podía haber 
omitido y haber probado el regis- 
tro (1Ү+1) ya que el IY contiene la 
dirección de la variable del sistema 
ERR NE (23610) y se utiliza por la 
ROM para direccionar las varia- 
bles del sistema. La razón es la si- 
guiente, si se utiliza el registro 1ኛ 
en los programas, hay que asegu- 
rarse de que las interrupciones es- 
ten desconectadas o dirigidas hacia 
nuestras rutinas. Habrá que reini- 
cializar el registro IY a la dirección 
correcta antes de utilizar la ROM 
o volver al modo normal de inte- 
rrupciones. 


los i 
nducen 
a 


ROM 


El segundo problema està en que 
sólo se puede comprobar si se ha 
pulsado una tecla, no varias. 

Para solucionar esto hay que es- 
cribir una rutina propia para la 
comprobación del teclado. Si de- 
sea saber si se ha pulsado una tecla 
sin especificar o varias, tendrá que 
realizar algo parecido a lo siguien- 
te: 


XOR A (asegurarse de que A=0) 

IN A, (FEH); (FEH es el port de 
entrada desde el teclado etc.) 

LD D, 31 

AND elimina etc de los 3 bits 
más altos). 

XOR D 

JR Z, TECLAS 


Si cargamos en el registro A el 
valor de la línea a comprobar antes 
de la instrucción IN A, (FEH), po- 
dremos comprobar adecuadamen- 
te si se ha pulsado una tecla. 

El teclado del Spectrum esta dis- 
puesto de la manera siguiente. El 
primer caracter en cada caso es 
BIT O y en el segundo BIT 4, el 
número hexadecimal se ha de car- 
gar en el registro A para poner el 
Bit de la línea que se comprueba. 


CAPS SHIFT-V FEH 
A-G FDH 
0-፲ FBH 
1-5 FH 
0-6 EFH 
P-Y DFH 
ENTER-H BFH 
SPACE-B 7FH 


De manera, que para saber si se 
ha pulsado ENTER el programa 
sería: 


LD A, BFH 

IN A, (FEH) 

AND 1 

JR Z, ENTER PULSADO 


Para comprobar si se ha pulsado 
más de una tecla se pueden utilizar 
los operadores lógicos AND, OR, 
etc.. si se encuentran en la misma 
línea. 

COPIA DE LA PANTALLA A LA IM- 
PRESORA: CALL 3756 (EACH) 

Esta rutina no requiere una pre- 

paración previa y una llamada di- 


recta (CALL) permitirá copiar la 
pantalla a la ZX printer. 

LISTANDO LOS GRAFICOS A LA IM- 
PRESORA: CALL 3789 (EDCH)- 

Esta es similar a la rutina ante- 
rior en cuanto a que utiliza el buf- 
fer de la impresora y vuelca su 
contenido a ella. Se utiliza por la 
rutina RST 16, que normalmente 
trata a los buffers como líneas de 
pantalla (con una altura de 8 pi- 
xels). Situando los gráficos en el 
buffer una línea a la vez y a conti- 
nuación se hace una llamada 
(CALL) a esta rutina la impresora 
copiará el buffer. 

Observe que, sin embargo, la sa- 
lida es de 32 bytes por línea de pi- 
xels con la siguiente línea de pixels 
inmediatamente después y no 
como en la pantalla. E] buffer se 
pone a cero después de la llamada 
(CALL). 


LIMPIANDO EL BUFFER DE LA IM- 
PRESORA: CALL 3807 (EDFH)- 


Sólo limpia el buffer, poniendo 
ceros. 

UTILIZANDO ВЕЕР: 
(3B5H)- 

El par de registros DE almace- 
nan la longitud de salida y el par 
de registros HL. la frecuencia. O es 
para alta frecuencia y FFFFH es 
para baja frecuencia. El problema 
de esta rutina es que la duración de 
esta rutina depende de la frecuen- 
cia. De forma que si la frecuencia 
se corta se dobla la duración para 
un valor dado en DE. 

Los valores actuales se calculan 
de la forma siguiente: 


НІ. - (437,500 /frecuencia) - 30.125 


DE - duración * frecuencia 
La duración ha de estar en segun- 
dos. 


La razón de restar 30.125 del re- 
gistro HL es porque la rutina tarda 
120.5 T estados para generar la 
nota y actualizar su registro. 

La C es 261 Hz, aproximada- 
mente, de forma que el valor de 
HL ha de ser sobre 1646 en deci- 
mal y DE para un segundo valdrá 
261 en decimal. 

Recuerde que las interrupciones 
desde la ULA ocurren 50 veces por 
segundo y que degenerarán la sali- 
da del sonido si la rutina se halla 
en los 16K inferiores de la RAM. 


CALL 949 


..МІ ORDENADOR ES 
SINCLAIR, 

MI SERVICIO TECNICO 
ES HISSA... 


Y es lo lógico. Si has elegido 
el mejor microordenador del mercado, 
no vas a repararlo con cualquiera. 


Solo HISSA, Servicio Oficial de Investrónica 
para los ordenadores SINCLAIR, 

te puede garantizar la utilización 

de piezas originales SINCLAIR 

y expertos técnicos en reparación. 


Y recuerda que no tendrás 
sobresaltos con el precio. 


"COSTE ESTANDAR POR 
REPARACION" 


E35== == 


Acude a la delegación 


0/. San Sotero, п. 3 
Telfs: 754 31 97 - 754 32 34 
28037 MADRID 


C/.. Aribau, п° 80, piso 5° 1.2 
Telfs: (93) 323 41 65 - 323 44 04 
08036 BARCELONA 


P? de Ronda, пе 82, 1^ E 
Telf.: (958) 26 15 94 
18006 GRANADA 


C/. Universidad, n^ 4 - 2^ 1^ 


Telf.: (96) 352 48 82 
46002 VALENCIA 


Telf. (985) 21 88 95 
33002 OVIEDO 


Telf: (945) 22 52 05 
01008 VITORIA 


CJ. Mares, n? 4 - 5" D 
Telt.: (976) 22 47 09 
50003 ZARAGOZA 


DELEGACIONES HISSA 


C/. 19 de Julio, n.° 10 - 2" local 3 


Avda. de Gasteiz, n° 19 A- 1° D 


más cercana. 


C/. Avda. de la Libertad, n» 6. Bloq. 1.2 Enti. Izq. D. 
Telf. (968) 23 18 34 
30009 MURCIA 


С/. Hermanos del Río Rodríguez, n. 7 bis 
Telf: (954) 36 17 08 
41009 SEVILLA 


C/. Travesía de Vigo, n° 32 - 1° 
Telf. (986) 37 78 87 
6 VIGO 


Juegos 


GHOSTBUSTERS 


No hace falta decir que este jue- 
go está inspirado en la película del 
mismo nombre. Lo que se busca es 
la caza de fantasmas. Para ello, al 
igual que los héroes de la pantalla 
grande, hay que partir por equi- 
parse bien. Lo primero es seleccio- 
nar el vehículo. Se puede elegir un 
compacto, un coche fúnebre, una 
camioneta rural o uno muy espe- 
cial, con carga para 7 equipos y 
160 millas/hora. La elección no es 
sólo cuestión de gusto, sino princi- 
palmente de dinero. Una vez elegi- 
do el coche hay que equiparlo con- 
venientemente según el dinero que 
le haya quedado. 


ፕ 


dos ghostbuster a cada lado del 
edificio al objeto de disparar sus 
UC est rayos sin que estos se crucen. Si lo- 
de equipos dispone de equipos de 
monitores y detección (detector de 
energía espectral, intensificador de 
imágenes...), de captura (carnada 


Control: joystick, teclado. 
Jugadores: 1 
Gráficos: Diversas pantallas 


para fantasmas, trampas...) y de al- con alta definición de 
macenaje (rayo láser... Armado caracteres. 

hasta los dientes puede pasar a la Sonido: müsica de la versión 
tercera fase: El plano de la ciudad, | cinematográfica. 

el horripilante templo de Zuul, el Niveles de dificultad: no 
cuartel central y los edificios adya- existen. 


centes aparecen en la pantalla, rá- 
pidamente recorridos por las igno- 
tas criaturas. 


Originalidad: reproducción 
fiel de la versión 
cinematográfica, 
aprovechando las 
características del ordenador 
al máximo. 

Conclusión: divertido y 
complejo programa. Habrá 
que esperar a ver si la versión 
del Spectrum es tan completa 
como ésta. 


Con el vehículo perfectamente 
equipado su misión es llegar los 
antes posible a la calle donde se 
producen los disturbios. Una vez 
allí comienza la cuarta y más deli- 
cada fase: Atrapar al fantasma. 
Para ello se deposita la trampa en 
el centro del edificio y se colocan 


gra atraparlo, ya estará cerca de su 
objetivo final: El templo de Zuul y 
el terrible monstruo de caramelo. 


Aquí, a diferencia de la versión 
cinematográfica no hay que derro- 
tar a Zuul, basta con poder intro- 
ducir a los cazafantasmas en el 
templo, lo cual le costará lo suyo. 


El programa es francamente 
bueno y los gráficos pueden produ- 
cirla misma «alucinación» que ver 
un fantasma propiamente dicho. 
Solo un pequeño detalle: el progra- 
ma analizado es la versión existen- 
te para el Commodore 64, motivo 
por el que no hemos entrado en 
detalle en la explicación de su fun- 
cionamiento. Para este mismo mes 
se espera la versión para el Spec- 
trum de 48K con idénticas reglas 
de funcionamiento y gráficos. iQué 
así sea! En la espera le aconseja- 
mos se haga amigo de quien tenga 
un Commodore 64. 


dor: Zafiro 


Distribui 
Formato: 
Memoria ге! jue! 


Inspirado en los video-juegos de 
igual nombre, es uno de los pro- 
gramas más conocidos y que 
mayor expectación levanta por la 
utilización del teclado en lo que a 
movimiento del atleta se refiere. 


Las competiciones, en un nüme- 
ro total de 10, se reparten en las 
dos caras, denominadas DIA 1 y 
DIA 2. Las pruebas del primer día 
consisten en los 100 metros lisos, 
salto de longitud, lanzamiento de 
peso, salto de altura y los 400 me- 
tros lisos. El segundo día tiene 
igualmente cinco pruebas, pero su 
dificultad crece considerablemen- 
te. Se trata de los 110 metros con 
valla, salto de altura con pértiga, 
lanzamiento de disco, lanzamiento 
de jabalina y 1.500 metros. 


Para el movimiento puede utili- 
zarse el teclado del Spectrum o un 
Joystick. 


Al comenzar el juego se introdu- 
cen las iniciales del "atleta de tur- 
no”, con lo que se podrá competir 
posteriormente, dado que se guar- 
dan las puntuaciones y el marca- 
dor ofrece en todo momento las 
tres mejores puntuaciones para 
cada prueba. 


Los gráficos son realmente exce- 
lentes. La pantalla se divide en tres 
partes: La parte superior contiene 
la puntuación donde se incluyen 
los puntos acumulados del atleta 
que está participando, la prueba 
que se está disputando y las tres 
mejores marcas de dicha prueba. 
Debajo de los marcadores se en- 
cuentra el público que lleno de jú- 


bilo se agita cada vez que se consi- 
gue entrar en una de las tres prime- 
ras puntuaciones y un poco más 
abajo el infatigable atleta que 
aguanta lo que le eche. Finalmen- 
te, en la parte inferior hay un indi- 
cador de velocidad y distintos tipos 
de información segün la prueba a 
realizar (metros recorridos, ángulo 
de contacto, tiempo transcurri- 
do...). Cuando falla en algün inten- 
to, generalmente por pisar una vez 
pasada la línea de salto, el atleta se 
rasca pensativamente la cabeza. 
En cambio cuando lo consigue, 
alza las manos en señal de victoria. 


Otros detalles gráficos de gran 
vistosidad se dan en el salto de lon- 
gitud, cuando un joven mide la 
distancia lograda, en el lanzamien- 
to de disco, acompañado de su 
sombra o en los 100 metros lisos 


cuando el juez da la salida pistola 
en mano. 


A estos efectos realmente logra- 
dos hay que afiadir un buen acom- 
pañamiento musical entre prueba 
y prueba y, por supuesto, a la hora 
de subir al pódium. 


Hay que destacar que no siem- 
pre salen todas las pruebas descri- 
tas, sino que el número depende de 
las puntuaciones obtenidas. A 
mayor destreza mayor número de 
pruebas o repetición de algunas y | 
oportunidad de mejorar la puntua- 
ción. Motivo por el que no pudi- 
mos llegar a la prueba de los 1.500 
metros por mucho que lo intenta- 
mos. 2 ሂ 


Desgraciadamente la distribui- 
dora ha optado por ofrecer directa- 
mente la versión inglesa sin tradu- 
cir, colocando la traducción de las 
instrucciones, la carátula de la cin- 
ta y un pequeño folléto en su inte- 
rior explicando los mensajes que 
aparecen por pantalla. Unico as- 
pecto negativo de este juego que 
exige serios entrenamientos para 
estar a la altura de los grades cam- 
peones. 


No hay un número limitado de 
jugadores, por lo que cualquiera 
puede incorporarse a las olimpia- 
das, con el único hándicap de que 
el ordenador conserva los records 
y. por tanto, la competición se 
vuelva cada vez más dura y más 
emocionante. 


n este tercer capítulo de la 
serie que venimos dedican- 
do al PASCAL, vamos a 
tratar de explicar las senten- 
cias de control de este len- 
guaje, que como veremos nos ofre- 
ce algunas ventajas respecto al BA- 
SIC, en este tipo de instrucciones. 
Las sentencias de control dentro 
de un programa nos dan la posibi- 
lidad de elegir entre dos o más al- 
ternativas (bifurcaciones), y ade- 
más el repetir un conjunto de ins- 
trucciones tantas veces como sea 
necesario. Estas repeticiones son 
los llamados bucles. Algo impor- 
tante a tener en cuenta es no caer 
nunca en un bucle infinito. Por 
tanto, siempre dentro de un bucle, 
habremos de evaluar una condi- 
ción para que éste no se ejecute in- 
definidamente. Una vez hecha esta 
pequeña introducción a las senten- 
cias de control, vamos a empezar a 
explicar detalladamente cada una 
de ellas. 


Sentencia IF 


La sentencia condicional IF se 
utiliza de la misma forma que en 


BASIC, y es la que nos permite to- 
mar una de las dos alternativas po- 
sibles de la condición puesta. 

Siguiendo el diagrama sintáctico 
de la figura 1, si la evaluación de la 
condición es cierta, se ejecutará la 
parte «del programa que sigue a 
THEN, es decir la sentencia 1 (la 
cual puede ser una sentencia com- 
Puesta), y en el caso de que la eva- 
luación de la condición sea falsa se 
pasa a ejecutar la parte del progra- 
ma que sigue a ELSE, que como 
vemos es la sentencia 2. 

Un ejemplo sencillo de esta ins- 
trucción podría ser: 


VAR 
BEGIN 


IF Numero < 10 THEN WRITE 


(NÚMERO 
ELSEREAD 


(NUMERO); 


uas 


En este ejemplo, siempre que un 
nümero leido fuera menor que 10 
se escribiría (parte correspondiente 
a THEN), mientras que si fuera 
mayor que 10 se ignoraría y se pa- 


saría directamente a leer otro. Los 
puntos suspensivos significan que 
puede haber instrucciones en su 
lugar. El funcionamiento de esta 
sentencia mediante un organigra- 
ma se ilustra en la figura 2. 

Por supuesto que esta condición 
dentro de un programa será siem- 
pre una expresión de BOOLE, que 
ya todos conocemos. Si nos fija- 
mos en el diagrama sintáctico ve- 
mos que la sentencia IF puede o no 
llevar ELSE. Si no existiera la par- 
te correspondiente a ELSE, y la 
evaluación de la condición fuera 
falsa, el programa se seguiría eje- 
cutando secuencialmente (la si- 
guiente sentencia a IF). 

Cuando la sentencia alternativa 
esté compuesta por un conjunto de 
sentencias, éstas deberán agrupai- 
se entre las palabras BEGIN END 
para así formar un bloque. Por 
tanto, el caso más general en el que 
tanto la sentencia 1 como la sen- 
tencia 2 son compuestas será: 


IF expresion boole THEN BEGIN 


Sentencias 
END - 
ELSE BEGIN 


Sentencias 


ЕМ 


Vamosa ver un pequeño progra- 
ma para comprender mejor esta 
última parte: 


Fig. 1. a] 
>- | CONDICION } 
>= | 
—— 
Fig. 2 


CIERTA 


PROGRAM Calculador; 


operador: CHAR; 
, N2, Resultado: INTEGER; 
BEGIN 
READ (operador, М1, N2); 
IF operador = 4° THEN BEGIN 
+ Resultado: = NI + №; 


! | WRITE (Resultado) 
END 
SENTENCIA 2 SENTENGAT ELSE BEGIN 
Resultado: = NI — 
WRITE (Resultado) 
WR AIT END 
zl END. ER] 


En este programa siempre 
leamos el operador +, la condición 
del programa cierta y elegire- 
mos la alternativa THEN, calcu- 
lándosc la suma de los dos núme- 
TOS. 

En el caso de que el operador 
leído sea cualquier otro caracter, 
elegiremos la opción ELSE del IF, 
calculándose entonces la resta de 
ambos nümeros. En ambos casos, 
ya que tanto el THEN como el 
ELSE se componen de más de una 
sentencia, sera necesario agrupar 
estas entre las palabras BEGIN- 
END. 

Por ültimo para terminar con 
esta sentencia condicional, indica- 


remos que pueden existir dentro de 
un programa una serie de senten- 
cias IF anidadas. Vamos a expli- 
carlo con un ejemplo: 


IF condicion 1 THEN IF condicion 
2 THEN sent 1 ELSE sent 2 


De esta estructura se podrían dar 
dos interpretaciones: 

a) ElELSE va con el primer IF 

b) EI ELSE va con el segundo 
IF. 

La interpretación válida será la 
segunda, puesto que el ELSE se co- 
rresponde siempre con el IF inme- 
diatamente más cercano. Por tan- 
to, dentro de una instrucción de 


este tipo se deberá cumplir la rela- 
ción: 
n. IF > n.° ELSE 


La estructura de esta anidación 
de sentencias IF vista mediante un 


Fig. 3. 


SENT Y 


organigrama queda reflejada en la 
figura 3. 

Para que no exista ambigüedad 
con la interpretación de estas ins- 
trucciones anidadas, se aconseja 
(aunque no es obligatorio), agrupar 
el IF “más interior” dentro de un 
bloque, es decir encerrarlo entre 
las palabras BEGIN-END. Así la 
expresión del ejemplo anterior 
quedaría: 


Esta sentencia WHILE dentro 
de un programa nos servirá para 
escribir todos los números positi- 
vos que leamos. Si el número leído 
fuera negativo no se ejecutaría la 
sentencia ninguna vez. Para finali- 


Fig. 4. 
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IF condi THEN BEGIN IF cond 2 THEN sent 1 ELSE sent 2 E ስ 5 


En la que ya distinguimos per- 
fectamente que el ELSE se corres- 
ponde con el segundo IF. 

Vemos entonces que esta utiliza- 
ción de la instrucción IF anidadas 
nos permitirá mejorar los rendi- 
mientos de un programa. 

Una vez vista la sentencia condi- 
cional vamos a pasar a ver las sen- 
tencias repetitivas. El PASCAL 
admite 3 clases de sentencias repe- 
titivas: cuando se conoce el núme- 
ro de veces que se va a repetir un 
bucle se utilizará la sentencia FOR 
y cuando desconocemos de ante- 
mano las veces de repetición del 
bucle utilizaremos las instruccio- 
nes WHILE Y REPEAT. 
Comenzaremos por WHILE. 


Sentencia WHILE 


Esta sentencia no tiene equiva- 
lente en BASIC, (ver figura 4). 
Para mostrar el funcionamiento de 
esta sentencia, utilizaremos el or- 
ganigrama de la figura 5. 

En esta sentencia se evalúa la 
condición, y si ésta no se cumple el 
bucle no “есша. El bucle se eje- 
cuta sólo si la condición sea cierta. 
Sabemos que el bucle de esta sen- 


tencia comienza detrás de la pala- 
bra DO, pero no podemos deter- 
minar de antemano donde finaliza, 
Por tanto, será necesario delimitar 
el bucle, lo cual conseguiremos 
como ya sabemos, encerrando éste 
entre las palabras BEGIN y END. 

La forma de escritura entonces 
será: 


WHILE condicion DO BEGIN 


SENTENCIAS 


Por el contrario, si es una sola 
instrucción la que está incluida 
dentro del bucle, no será necesario 
encerrarla entre  BEGIN-END, 
puesto que el punto y coma final 
de la sentencia indicará que ésta ya 
se ha acabado. 

Un sencillo ejemplo para mos- 
trar la escritura de una sentencia 
WHILE es: 


WHILE numero > 2 DO BEGIN 


zar, es importante recordar que si 
no se cumple la condición inicial 
en esta instrucción, el bucle no se 
realizará ninguna vez. 


Sentencia REPEAT 


Tampoco esta sentencia tiene 
equivalencia en BASIC, aunque 
por supuesto la podemos simular. 
Para seguir con el mismo orden 
que en la sentencia WHILE, el dia- 
grama sintáctico correspondiente 
es el de la figura 6. La sentencia de 
control repetitiva de dicha figura, 
ejecuta al menos una vez el bucle 
correspondiente. (Para entender 
mejor el funcionamiento, ver la fi- 
gura 7.) El conjunto de sentencias 
comprendidas entre las palabras 
REPEAT y UNTIL constituye el 
cuerpo del bucle de esta instruc- 
ción, teniendo en cuenta adem: 
que éste se ejecutará al menos una 
vez, ya que la comprobación de la 
condición es posterior a la ejecu- 
ción del bucle. 

Por tanto esta ejecución repetiti- 
va se controla mediante la condi- 
ción (expresión de Boole), la cual 
se evaluará después de cada itera- 
ción. 

Deberemos tener en cuenta que 
dentro del conjunto de sentencias 
del bucle, habrá algo que haga va- 
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WRITE (numero); 
READ (numero) 
End; 
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riar la condición, para que este bu- 
cle no se convierta en infinito. 

Un ejemplo típico para la com- 
presión de la sentencia REPEAT, 
es hacer un programa que calcule 
la suma de N nümeros. 


PROGRAM serie: 
VAR 


nám.; N : integer; 1: integer; 


suma : real; 
EGIN 


La variable N de este programa 
indicará el número de veces que se 
va a realizar el bucle, o sea, cuán- 
tos números vamos a sumar. Ve- 
mos en este problema que, a dife- 
rencia de la sentencia WHILE, 
aquí el bucle queda delimitado ya 
por la propia instrucción repetiti- 
va, por las palabras REPEAT - 
UNTIL. 

La condición viene impuesta 
por la expresión booleana | = N. 
Mientras que 1 no alcance el valor 
de N leído, el bucle se seguirá eje- 
cutando. La instrucción que varía 
la condición dentro del bucle será I 
:= I + 1, la cual conseguirá que 
nunca entremos dentro de un bu- 
cle infinito. 

Vemos, por tanto, que la dife- 
rencia entre la sentencia WHILE y 
REPEAT será el lugar de evalua- 
ción de la condición. Mientras que 


Fig. 7. 
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en la sentencia WHILE la condi- 
ción se evalúa antes y por ello pue- 
de que el bucle no se ejecute nin- 
guna vez, en la sentencia RE- 
PEAT, la condición es posterior al 
bucle y éste se ejecutará al menos 
una vez. 


Sentencia FOR 


Esta sentencia, equivalente a la 
sentencia FOR en BASIC, se utili- 
za cuando sabemos de antemano el 
nümero de veces que se va a reali- 
zar el bucle. Por tanto, esta senten- 
cia estará controlada por un índi- 
ce, el cual variará en sentido cre- 
ciente o decreciente indicando el 
nümero de iteraciones del bucle. 
(Figura 8). 


Deberemos tener en cuenta que 
tanto la variable de control, como 
el valor inicial y el valor final de- 
berán ser del mismo tipo ordinal, y 
no deben alterarse por el usuario 
en la ejecución de esta sentencia. 

La opción TO del FOR contará 
ascendentemente, mientras que la 
opción DOWNTO lo hará descen- 
dentemente. 

Si el valor inicial de la variable 
es mayor que el valor final, el bu- 
cle FOR no se ejecutará ninguna 
vez. 

El funcionamiento de la senten- 
cia FOR representado mediante 
un organigrama se ilustra en la fi- 
gura 9. 

Como siempre, si el bucle está 
compuesto por más de una senten- 
cia deberemos delimitarlo, usando 
como hasta ahora las palabras BE- 
GIN y END. 

Deberemos tener en cuenta que 
a un bucle FOR sólo se puede ac- 
ceder por el principio, pero es po- 
sible la salida de un bucle para eje- 
cutar alguna otra parte del progra- 
ma. 

Las sentencias FOR pueden es- 
tar anidadas, con la única restric- 
ción de no mezclar los bucles. Al- 
gunas estructuras válidas de las 
sentencias FOR anidadas pueden 
verse en las figuras 10 y 11. 

Una estructura no válida, ya que 
se mezclan dos bucles podría ser la 
de la figura 12. 


Dentro de un programa con bu- 
cles anidados, siempre se ejecutará 
ante el FOR más interior, y en el 
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caso de que haya dos FOR al mis- 
mo nivel se ejecutará antes el pri- 
mero que aparezca. 

El programa que calcula la suma 
de N números hecho con senten- 
cias FOR sería: 


FORI:-1 TON DO 
BEGIN 

READ (NUM); 

SUMA := SUMA + NUM 
Е 


En el próximo capítulo veremos 
un sencillo programa de conver- 
sión de números árabes a romanos, 
en el que se emplean con bastante 
frecuencia estas sentencias de con- 
trol. 
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SUSCRIBASE A 


El sueño de Sinclair ha sido siempre 
fabricar equipos baratos, y podemos decir 
que se ha convertido en realidad en 
reiteradas ocasiones, aunque dudamos que 
pudiera imaginar poder contar con un lápiz 
óptico por poco más de 500 ptas. El 
atractivo es doble para quienes además 
disfrutan con su realización. 


1 alguien nos comentara la 
S posibilidad de construir un 
lápiz óptico por menos de 
500 ptas. y sin necesitar ex- 
periencia previa en montajes 
electrónicos, tal vez, no le creería- 
mos. Sin embargo, hay que confiar 
más en la gente, porque es CIER- 
TO. 
En este artículo, nos propone- 
mos guiar la tonstrucción de un 
sencillo —pero -efectivo— lápiz 


óptico. Se pretende que, incluso 
los menos experimentados, sean 
capaces de seleccionar menús, de- 
finir gráficos o escribir música sin 
tocar una tecla. 

Podríamos decir que un lápiz 
óptico se diferencia del resto de los 
instrumentos en que si se apunta 
hacia un monitor o una pantalla 
de televisión, es capaz de detectar 
si se hace sobre una zona oscura o 
iluminada, e informar consecuen- 


temente al ordenador con que está 
conectado. (Nótese que este efecto 
es raramente comprobable en una 
grapadora o un florero, por ejem- 
plo). 


¿Cómo funciona 
un lápiz óptico? 


El funcionamiento de este extra- 
ño artilugio viene estrechamente 


ligado al modo de operar de la 
pantalla de televisión. Explique- 
mos muy brevemente y en forma 
aproximada, cómo se genera una 
imagen en la pantalla de nuestro 
aparato. 

El tubo de televisión (fig. 1) dis- 
pone en su parte más estrecha de 
un dispositivo denominado cañón 
electrónico, que tiene la perversa 
misión de disparar un rayo de ve- 
loces electrones (haz electrónico) 


cuya intensidad puede ser contro- 
lada. 

A continuación, se dispone de 
unas bobinas deflectoras cuya mi- 
sión es la de desviar a voluntad el 
estrecho haz. Existen pares de bo- 
binas dispuestas horizontal y verti- 
calmente. Actuando conveniente- 
mente sobre ellas, seremos capaces 
de bombardear con electrones 
cualquier punto de la pantalla, 

Esta pantalla se encuentra abso- 
lutamente recubierta de una sus- 
tancia fosforescente, que tiene la 
propiedad de iluminarse cuando 
los electrones acelerados chocan 
contra ella. 

Así, si deflectamos el haz de 12- 
quierda a derecha con suficiente 
velocidad y al llegar al extremo rá- 
pidamente lo llevamos de nuevo a 
la izquierda, veremos una recta 
horizontal en la pantalla. 

Si además de hacer retroceder el 
haz, lo desplazamos verticalmente, 
cada vez que llega al borde y, al 
acabar repetimos el proceso indefi- 
nidamente, nos encontraremos 
con una pantalla totalmente blan- 
ca. El efecto recuerda a dos bucles 
FOR-NEXT anidados. (En el pró- 
ximo nümero veremos un ejemplo 
concreto.) 

En las televisiones europeas el 
«refresco» de la imagen se realiza 
25 veces por segundo (cada 40 ms). 

Es necesario repetir rápidamen- 
te los barridos por dos motivos: 1) 


Permitir una ilusión de movimien- 
to. 2) Cuando el haz alcanza un 
punto y posteriormente lo abando- 
na, dicho punto no permanece in- 
definidamente iluminado sino que, 
paulatinamente va perdiendo su 
luz (en un proceso típicamente ex- 
ponencial). 

El ültimo experimento consisti- 
ría en variar la intensidad del haz. 
De esta manera podemos crear in- 


Un lápiz óptico 
puede detectar 
una zona 


oscura 
o iluminada. 


finidad de tonos y contrastes. Así 
resulta posible representar textos o 
imágenes. 5 

Cuando nosotros vemos un pun- 
to iluminado, no es tal, en realidad 
se trata de un punto que se encien- 
de y apaga 25 veces por segundo, 
lo suficientemente rápido como 
para parecer continuo. 


Pero la electrónica es más rápida 
que nuestro ojo y dicho parpadeo 
puede ser fácilmente detectado. Y 
lo más interesante, nuestro lápiz 
no va a detectar un determinado 
nivel de luz que puede ser muy va- 
riable (recordemos que la pantalla 
va a estar siempre iluminada), sino 
las raudas variaciones de intensi- 
dad luminosa. 

Ya tenemos pues el sistema. De- 
bemos usar algo que detecte esos 
pulsos luminosos y que los ampli- 
fique. Queda claro que, si nos en- 
contramos sobre una zona clara re- 
cibiremos una señal pulsante de 25 
Hz mientras que, si apuntamos a 
una zona oscura captaremos la 
más absoluta nada. Ahora lo que 
debemos pensar es lo que vamos a 
hacer con la señal que nos ofrece el 
lápiz. 

Hasta aquí, todos los sistemas en 
los que se basan los diferentes lápi- 
ces ópticos coinciden. Las siguien- 
tes etapas marcan las diferencias 
fundamentales. 

La opción más comünmente 
usada destaca por su velocidad. 
Desgraciadamente, la implanta- 
ción en el Spectrum ha de venir 
acompañada de grandes complica- 
ciones. Los circuitos integrados es- 
pecialmente concebidos para el 
tratamiento del video, acostum- 
bran a incorporar una entrada para 
lápiz óptico que simplifica enor- 
memente las cosas. 
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Figura 2. Organigrama. 


Figura 4. 
Placa del 
circuito. 


Para ser breves digamos que el 
punto hacia el que enfila el lápiz se 
determina en función de la celda 
de memoria que se está enviando 
al circuito de video para su repre- 
sentación en pantalla. En estos ca- 
sos la pantalla debe tener un color 
claro. 

El lápiz que nos ocupa no nece- 
sita enchufarse al conector de ex- 
pansiones. Podemos usar una en- 
trada ya existente: la clavija de 
EAR. Concebida inicialmente 
para la entrada de la información 
grabada en cinta, nada nos impide 
usarla para otros fines. 

Lo ünico que habremos de ha- 
cer, será amplificar suficientemen- 
te la señal recibida por el fotode- 
tector y enviarla al ordenador a 
través de la entrada de cinta mag- 
nética. Simple (по es cierto? Expli- 
caremos brevemente ahora el mé- 
todo usado para hacer posible el 
uso del lapiz. 

Supongamos que, trabajamos 
con papel negro y tinta blanca y 
queremos seleccionar la opción de 
un menú. Iremos dibujando cua- 
drados blancos al frente de cada 
opción hasta que se detecte alguna 
señal del lápiz. Pero, ¿será que el 
lápiz se halla sobre el punto dibu- 
jado, o sobre cualquier otro sitio 
iluminado? El mejor método para 
comprobarlo, es borrar el cuadra- 
do testigo para ver si ahora deja- 
mos de detectarlo. Si sigue dando 


señales, es que el lápiz se encuen- 
tra sobre una superficie luminosa 
de origen desconocido. Continua- 
mos con el ciclo. 

Si por contra no se recibe señal, 
podemos bien repetir la operación 
para estar totalmente seguros, bien 
dar la respuesta como válida. Sen- 
cillo ¿no? En un próximo número. 
mostraremos programas concretos 
que arrojarán más luz sobre el 
asunto. 


Un punto iluminado 
sólo es un punto 
que se enciende 


y apaga 
25 veces - 
por segundo. 


Vamos a meternos de lleno con 
el hardware necesario. 

El circuito de nuestro lápiz ópti- 
co se muestra en la figura 3. El fo- 
todiodo D1 es un traductor luz- 
corriente. El transistor ТІ al que se 
halla directamente unido, actüa 
como amplificador de corriente. 
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En los extremos de la resistencia 
ВІ, tenemos una tensión propor- 
cional a la luz que incide sobre la 
pantalla: iluminación natural (luz 
en “continua”), iluminación artifi- 
cial (en “alterna”) y la provocada 
por la pantalla de televisión ilumi- 
nada (rápidos pulsos). 

La resistencia R1 deberá deter- 
minarse experimentalmente сп 
función del fotodiodo y transistor 
usados, así como de la luz ambien- 
te normal. Sin embargo, para un 
BPW 22 y un BC 557 8 como DI y 
TI respectivamente, una resisten- 
cia de 10K funcionó perfectamen- 
teen todos los prototipos. 

El condensador C1 se encarga de 
realizar un filtrado conveniente, 
con objeto de eliminar perturba- 
ciones procedentes de la ilumina- 
ción artificial. También realiza el 
desacoplo necesario, eliminando 
la componente continua de la se- 
fial. 

A continuación alrededor de T2 
encontramos una etapa buffer (se- 
paradora) que tiene una impedan- 
cia de salida lo suficientemente 
baja como para que pueda conec- 
tarse a la entrada de cassette, 
Como quiera que las sefiales pue- 
den alcanzar picos de hasta 5 vol- 
tios, se ha decidido poner a conti- 
nuación una etapa limitadora. 
Además de mejorar el margen di- 
námico, impide que la señal alcan- 
ce valores superiores a 0,6 V de 
pico. 

El lápiz óptico recibirá su ali- 
mentación de la misma fuente que 
alimenta al Spectrum. Sin embar- 
go, no podrá usarse directamente 
ya que es tremendamente ‘sucia’ y 
requiere un filtrado previo. El 
transistor T3 y componentes aso- 
ciados (C2, C3, ፳5 y D4), consti- 
tuyen una pequeña fuente de ali- 
mentación estabilizada a 9,4 V. 
Este circuito nos evita los volu- 
minosos condensadores de desaco- 
plo. 


El conjunto puede montarse en 
una pequeña placa de 11 48 mm 
(ver figura 4). No se ha previsto un 
interruptor ya que aumentaría ex- 
cesivamente el volumen ocupado 
por el lápiz a no ser que se tratara 
de un modelo miniatura, necesa- 
riamente caro. Nada impide colo- 


ARACTERES 


ARACTERES 


carlo en serie con la alimentación. 
El conexionado del conjunto se 
muestra en la figura 5. 


Montaje 


En primer lugar, se soldarán las 
resistencias y el condensador Cl. 
A continuación pasaremos con los 
semiconductores: diodos D2, 3 y 4 
y los transistores. Prestar atención 


a la orientación adecuada. Por úl- 


timo, se montarán los condensado- 
res electrolíticos que irán por enci- 
ma de los componentes tal como 
muestra la figura 6. 

El fotodiodo necesita un proceso 
de “encapsulado”. Con objeto de 
hacer que, el fotodiodo resulte 119- 
minado únicamente por aquellos 
puntos de la pantalla a los que está 
apuntando, se ha de fabricar una 
estructura como la de la figura 7. 
Podrá utilizarse cualquier material 
que cumpla la condición de ser 


opaco y aislante. El «agujero» de- 
berá practicarse con limpieza y no 
deberá rallarse el encapsulado del 
diodo. Recordamos que, antes de 
introducir el diodo en su ‘casa’, de- 
beremos proceder al marcado de 
sus patillas con objeto de soldarlo 
correctamente. (Tener en cuenta 
que toda marca en un diodo co- 
rresponde al cátodo o que la patilla 
más larga es el ánodo). Ver figura 
8 


Los cables usados deberán ser 
apantallados de doble conductor: 
positivo de la alimentación, señal 
y malla a masa. El conjunto del lá- 
piz deberá estar también apanta- 


Recibe la 
alimentación de la 
misma fuente 


que alimenta 
al Spectrum. 


llado con papel de aluminio y en- 
rrollado con éste, se deberá intro- 
ducir un hilo desnudo conectado a 
masa. Por razones obvias, se aisla- 
rá el circuito con un papel o plás 
co con objeto de evitar cortocircui- 
tos. 

El lápiz se alojará en algún tubo 
de material plástico o metálico (re- 
sultan ideales los rotuladores tipo 
Edding 3000 ya gastados). Los ca- 
bles y conectores se soldarán como 
indica la figura 9. 

Lista de componentes: 


፪1: 10 K (vertexto). 

R2: 68 K. 

R3:16 K. 

R4: 560 Q. 

፪5:20 К. 

ТІ: BC 558. 

T2;T3:SC 149. 

СІ: 10 pF. 

C2: 1 uF 15V. 

C3: 10 4F 15V. 

DI: porodiodo de si (BPW 22). 
D2, 03: IN4148. 

D4: diodo tener 10 V, 1/4 W. 


Luis Miguel 
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| SITI o Sistema Integrado 

, de Tratamiento de Informa- 

ción es un programa que 

permite "integrar" la Base 

de Datos y la hoja de cálcu- 
lo. Es decir, se puede guardar, se- 
leccionar información y efectuar 
cálculos entre diferentes partes de 
un fichero. Lógicamente la infor- 
mación puede quedar grabada, 
bien en cassetie o bien en micro- 
drive. Para mayor simplicidad, el 
propio programa selecciona el mi- 
crodrive como unidad de almace- 
namiento, siempre que esté conec- 
tado el interface 1. 

El programa se ofrece en casset- 
te con un completo manual de ins- 
trucciones, pero de difícil lectura. 
Completo porque a través de sus 
20 hojas se ofrece amplia informa- 
ción para el manejo de las distintas 
opciones del programa con profu- 


sión de ejemplos, pero demasiado 
“oscuro”, para evitar las copias. Se 
ha utilizado un papel de color ma- 
rrón oscuro, de forma que el pro- 
pio original —imprescindible para 
trabajar con el programa— resulta 
de difícil lectura. 

No sólo en el manual hay ejem- 
plos. Al cargar el programa, éste 
(recuerde que no es válido para el 
Spectrum de 16K) se ejecuta auto- 
máticamente y contiene un ejem- 
plo con once fichas, en las que se 
combinan sus dos características 
principales: campos numéricos y 
alfanuméricos y campos que son el 
resultado de efectuar cálculos so- 
bre otros. Siempre en el formato de 
64 caracteres por línea. La figura 1 
reproduce el menú de opciones. La 
estructura de esta primera pantalla 
se arrastrará en todos los demás, es 
decir, las tres líneas inferiores dan 


información sobre el programa en” 
general o sobre la opción utilizada 
en cada momento: nombre del ar- 
chivo, número de fichas existentes 
y seleccionadas, opción utilizada, 

forma de finalizar y memoria libre. 

Sobre estas líneas se desarrolla el 
programa. 

Para grabar datos, primero hay 
que determinar su número y tipo, 
es decir, hay que realizar la ficha 
de entrada de datos. Esta es la pri- 
mera ventaja de toda base de datos: 
su flexibilidad. Usted mismo se 
configura “su ficha” de acuerdo a 
sus necesidades. La figura 2 mues- 
tra la ficha que viene como ejem- 
plo. Se comenzó por una referen- 
cia. Después precio de venta, pre- 
cio proveedor, cantidad stock, 
stock mínimo, condiciones y des- 
cripción del artículo. Otros cam- 
pos definidos y calculados a partir 


de los anteriores, fueron bajo míni- 
mo, importe total a PVP, total 
acumulado, etc. A continuación 
de cada uno de estos títulos se es- 
pecifica el tipo de campo, es decir, 
el número máximo de dígitos ain- 
troducir y si estos serán numéricos 
o alfanuméricos. Los numéricos se 
determinan por el símbolot, los 
alfanuméricos por E y las fechas 
por el símbolo de la libra £. Así, si- 
guiendo con el ejemplo de la figura 


'asión, 
SUS posibilidades. 4 al máximo 


Programas de gestión 


5 para cual 
гуе la Bas quier acti- 


Л, aprovech, 


3, la referencia, condiciones y 
descripción del articulo se definen 
como campos alfanuméricos y 
como numéricos los restantes. En 
el caso de los datos numéricos, el 
“punto” sirve para separar los dí- 
gitos, quedando alineados por la 
derecha. Dado que estamos ante 
un programa realizado en nuestro 
país, se sigue la nomenclatura de 
separación española del “punto” 
para miles y la “coma” para los 


BASE DE DATOS 


decimales, al contrario de la mayo- 
ría de programas anglosajones. La 
única precaución a tener presente 
es no dejar más de un espacio de 
separación entre los titulares de los 
campos, ya que es este precisa- 
mente la identificación que utiliza 
el programa como separador. 

Cada vez que complete la intro- 
ducción de datos de una ficha, pre- 
sionando EDIT quedará almace- 
nada. En nuestro ejemplo, se alma- 
cenan los datos introducidos en la 
parte superior de la pantalla, junto 
con los que el programa “calcula” 
en la parte inferior de la pantalla 
(figura 2). Para ver esto con mayor 
claridad, compare la figura 2 con 
la 3. La única diferencia está en los 
campos que aparecen “encerra- 
dos” entre barras verticales. De 
esta forma, el programa 1dentitica 
los campos cuyo contenido ha de 
calcular en función de otros cam- 
pos, es decir, de esta forma el pro- 
grama se convierte en una nueva 
versión de las clásicas hojas de 
cálculo, ya que lógicamente los 
cambios en las casillas o campos 
superiores siempre producirán un 
cambio en los restantes campos re- 
ferenciados a dichas casillas. Si- 
guiendo el ejemplo (figura 2), a la 
derecha del titular Bajo mínimo 
aparecerá un 1 si el resultado de 
restar el valor contenido en el 
campo Cantidad stock del campo 
Stock mínimo es menor que cero. 
Para entender esto, hay que tener 
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Figura 1. Menú de opciones. 


algún conocimiento del Spectrum 
y del programa: 


1) El Spectrum, puede trabajar 
con expresiones lógicas del tipo 
LET В-(А>0), lo que quiere decir 
que a B le asigna el valor 1 si el 
contenido del paréntesis es cierto o 
el valor 0 en caso contrario. Es de- 
сіг, В=1 si A>0 y В=0 518ቷ 0. 

2) Para la identificación de los 
campos, el programa no necesita 
que se haga referencia al nombre 
completo. En el ejemplo, para re- 
ferirnos al Precio venta sería nece- 
sario decir al menos Precio v para 
diferenciarlo del Precio proveedor. 


Figura 2. Ejemplo de una ficha. 


Siguiendo el mismo razona- 
miento el Importe total a P. V.P., se 
obtiene de multiplicar el Precio 
venta por la Cantidad. Análoga- 
mente se obtienen los restantes 
campos (figura 3). 

Una vez definida la ficha e intro- 
ducidas éstas. Ya dispone de una 
Base de Datos. Decíamos que la 
mejor característica es su flexibili- 
dad, que puede verse en sentido 
doble, flexibilidad para configurar 
las fichas acorde a las necesidades 
individuales, y flexibilidad para 
obtener información según distin- 
tos criterios de clasificación. ላ esta 
segunda posibilidad se refiere la 


Qué es una Base de Datos 


Una Base de Datos es un progra- 
ma de gestión de la información 
que sirve para almacenar y consul- 
tar información, manipularla y 
clasificarla en un diverso grado, así 
como utilizarla para generar infor- 
mes o listados, entre sus principa- 
les funciones. 

Hasta hace solo unos pocos 
años, estos programas eran tan 
complejos que sólo los podíamos 
utilizar profesionales informáticos, 
o bien tan simples que el control 
que se tenía sobre la información 
que se deseaba organizar y mani- 
pular era muy limitado. 

Hoy la situación ha cambiado 
considerablemente y pequefios or- 
denadores como el Spectrum dis- 


ponen ya de programas de gestión 
de la información que merecen cl 
calificativo de Base de Datos. En- 
tre estos, limitados en gran medida 
por las propias características del 
ordenador, y los que corren en un 
mainframe, existe una amplia di- 
versidad de programas que se pue- 
den clasificar en tres: manejo de fi- 
cheros, programas de nivel inter- 
medio y sistemas de Bases de Da- 
tos avanzados. A estos hay que 
añadir los paquetes integrados. 

Los programas de manejo de fi- 
cheros llevan a cabo las funciones 
básicas de almacenamiento de la 
información, búsqueda, manipula- 
ción y algunos cálculos sencillos, y 
son capaces también de generar in- 


opción "SELECCIONAR  IN- 
FORMACION" del menú, aun- 
que el manual lo describe como 
"SELECCIONAR FICHAS”, 
esta opción, hablar de flexibilidad 
es quedarse cortos. Se puede traba- 
jar con diez criterios distintos de 
clasificación: 


Selección en campos 
alfanuméricos 


La selección no tiene en cuenta 
los espacios a la derecha del cam- 
po, siendo indiferentes minúsculas 


formes en base a los datos de un fi- 
chero. Dado que conceden impor- 
tancia a la sencillez de manejo so- 
bre lo demás, sus posibilidades 
suelen estar gravemente limitadas 
en flexibilidad, en grado de adap- 
tación a las necesidades concretas 
del usuario. 

Los programas de nivel interme- 
dio resultan adecuados para apli- 
caciones como la contabilidad ge- 
neral, sistemas de control de ven- 
tas, control de almacen, etc. Mu- 
chos de ellos pueden acceder a más 
de un fichero a la vez y clasificar 
registros en base a claves múlti- 
ples. A diferencia de los anteriores, 
almacenan, ordenan, manipulan, 
localizan datos, y preparan infor- 
mes con una mayor flexibilidad. 


Precio venta: 
Precio proveedor: 


Cantidad Stock: 
Stock minimo 


62.500 ptas 
62.500 ptas 
50.000 ptas 
50.089 ptas 


La figura 1 
muestra las 
opciones del 
programa, 
convenientemente 
separadas en tres 
bloques. Las 
figuras 2 y 3 
corresponden al 
ejemplo que viene 
con la cinta, El 
programa se 
autocjecuta, 
mostrando el 
menú de opciones, 
en cuya línea de 
estatus informa 
del número de 
fichas existentes y 


Figura 3. Ejemplo de formato de una ficha. 


o mayúsculas. Los criterios de se- 
lección son: 


1. Contenido exacto del campo. 
Supongamos que se escribe 
“pilas” en el campo Descrip- 
ción. De esta forma se selec- 
cionarían todas las fichas que 
contuviesen solamente la pa- 
labra “pilas” en dicho campo. 

2. Contenido de primeros carac- 
teres. Se selecciona un campo 
solo por los primeros caracte- 
res antes del punto. Por ejem- 
plo, si en la referencia se colo- 
case "DJ." se seleccionarían 
todas las fichas que en dicho 


las seleccionadas. 


campo comenzasen por "DJ". 
Contenido en cualquier posi- 
ción. Si el “punto” se coloca al 
principio, ello denota la bús- 
queda de las fichas que con- 
tengan la información que se 
especifica después, ya sea al 
principio, en medio o al final 
del campo. 

Cualquier caracter en una po- 
sición. A diferencia del ante- 
rior, se puede dejar variable un 
caracter dentro de una clave 
de búsqueda, utilizándose para 
ello el símbolo **?”. Así la cla- 
ve "p?so" selecciona fichas 
que contengan en el campo 


elegido la palabra piso, paso, 
peso, poso, etc. 
Campos vacíos. Incluso si se 
dejan campos vacíos, ello pue- 
de servir por sí solo para loca- 
lizar las fichas, al introducir el 
signo de subrayado “-” como 
criterio de büsqueda en un 
campo. 

6. Significado contrario. En cual- 
quiera de los casos anteriores, 
sirve para buscar “lo contra- 
rio" de los especificado. Asi 
“/Р.” buscaría todas las fichas 
en las que el campo especifica- 
do NO comienza por "P". 
Selección por orden alfabéti- 
co. Independientemente de 
que las fichas se encuentren 
ordenadas, se puede clasificar 
alfabéticamente. " < D" selec- 
ciona las fichas cuyo campo 
especificado comience por la 
inicial ላ, B ô C. 


Selección en campos 
numéricos 


Siguiendo con el ejemplo que 
acompana al programa (figuras 2 y 
3), la selección de campos numéri- 
cos puede realizarse de la siguiente 
forma: 


Los sistemas de Bases de Datos 
avanzados disponen de potentes 
comandos con los que crear apli- 
caciones particularizadas. Están 
concebidos para procesar grandes 
cantidades de datos, y utilizar de 
manera coordinada varios ficheros 
independientes, con lo que se con- 
sigue presentar aspectos diferentes 
de la misma información. 

Finalmente, los paquetes de 
sofiware integrado se componen de 
diversos programas, generalmente 
gráficos, hoja de cálculo, procesa- 
dor de textos y Base de Datos. El 
ejemplo típico consiste en una 
hoja de cálculo que incorpora al- 
gunas capacidades de gestión de 
Base de Datos como la ordenación 
o selección de información. 


‚^з 


800 H 


Trece instrucciones BASIC 
manejan los ficheros y el 
acceso a las direcciones 
donde está situado el 
programa en código máquina 
de 12 Kbytes de extensión. 


8. Contenido igual que. Se po- 
dria seleccionar todos los ar- 
tículos que den Bajo mínimo o 
dicho de otra forma, que den 
el valor 1 en el campo Bajo 
mínimo. "iSu listado podría 
enviarse directamente al pro- 
veedor!”., 

9. Contenido mayor que y menor 
que. Imagínese un nuevo cam- 
po en la ficha que fuese el mar- 
gen de beneficios por produc- 
to. Fácilmente podría sacarse 
la clasificación entre aquellos 
productos que diesen un mar- 
gen “mayor” о “menor” a una 
determinada cantidad. 

10. Significado contrario. Idénti- 
co a los campos alfanuméri- 
cos. 


La selección sirve, como su pro- 
pio nombre indica, para seleccio- 
nar un nümero de fichas que cum- 
plan con los requisitos de la clave 
de selección. Ello no afecta a las fi- 
chas. Lo que si las puede modificar 
es la opción "ORDENAR AR- 

CHIVO”. Eligiendo esta opción, 
volverá a aparecer el formato de la 
ficha para seleccionar el criterio de 


selección. Al ordenar por un cam- 
po determinado, se respeta el or- 
den anterior que pudiera haber en 
otros campos. Así, si se ordena un 
archivo por Descripción y luego 
por Precio, el orden final será por 
Precio de menor a mayor y dentro 
de los artículos con el mismo pre- 
cio por orden albafético de Des- 
cripción. Para la selección del 
campo-clave para la ordenación, 
simplemente se coloca un carac- 
ter en la primera posición del 
campo. 

Es interesante destacar la posi- 
bilidad de trabajar con fechas, no 
contemplado en el ejemplo que 
viene con el programa. Un cam- 
po con el formato £ debe te- 
ner siempre seis dígitos para la in- 
troducción de la fecha según el for- 
mato DDMMAA. De esta forma 
la ordenación del archivo por fe- 
chas se realiza correctamente. 

Por supuesto, se incluyen tam- 
bién las opciones de actualización 
no sólo de entrada de nuevas fi- 
chas, sino de anulación y modifi- 
cación. Estas opciones vuelven 
igualmente al formato definido de 
ficha, sobre el que se realizan las 


actualizaciones con facilidad y ra- 
pidez. 

Finalmente, la impresión. No es 
necesario contar con impresora, al 
igual que tampoco son necesarios 
los microdrives. Las fichas selec- 
cionadas pueden visualizarse en 
pantallas con la ayuda de potentes 
comandos ("Enter" para paso a la 
siguiente ficha, “8” para avanzar 
cinco fichas, “А” anula la ficha del 
archivo, “U” pasa a la última fi- 
cha, “M” para modificaciones...). 
Claro que siempre puede ser con- 
veniente tener una copia impreso- 
ra o un hard copy por seguir la ter- 
minología al uso. La opción del 
menú “Definir impresora” tiene 
tres posibilidades: (1) ZX printer o 
GP-50 de Sheikosa, (2) Interface 
Centronics y (3) Interface 1 para 
impresoras serie, mediante el in- 
terface 1 (como ya indicábamos al 
inicio de este artículo, este mensaje 
sólo aparecera si está conectado el 
interface 1). 

Veamos en detalle cómo ha de 
conectarse a dos de los interface 
Centronic más comunes: Si conec- 
ta el interface del tipo Centronics 
de Ventamatic, no cargue el pro- 
grama que incorpore dicho inter- 
face: el SITI no funcionaría. Si uti- 
liza el de Indescomp, siga los si- 
guientes pasos: 


І. Cargueel programa. 
LOAD * "M": 1; “SITI”. 

2. Seleccione la opción del 
menü MERGE ARCHIVO. 

3. Pulse ENTER dos veces y 
BREAK. El programa se de- 


tendrá con е! mensaje 
BREAK-CONT repeats 
40 


4. Ejecute POKE 34934,4 
5. Pulse RUN. Generalmente 
suele funcionar, 


Para finalizar, el manual infor- 
ma del futuro "modulo adapta- 
dor” para el context V.6, (procesa- 
dor de textos desarrollado por la 
misma casa de software), que per- 
mitirá hacer cartas personalizadas 
con la información que proporcio- 
ne un archivo grabado con el SITI, 
y otro módulo de conversión de ar- 
chivos del Masterfile (célebre base 
de datos inglesa que comentare- 
mos en un próximo número) al 
81፲1. 
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a premisa de: diseñar un len- 
2. guaje que permitiera al niño 
programar al ordenador y no 
por el contrario, ser «pro- 


aplicación de la Ense- 
stida por Ordenador), di- 
еа de Seymour Papert, 
grupo ово. del labora- 

1 с gencia Artificial del 
E tituto Tecnológico de Massa- 
chusetts. Este matemático, que fue 
фос de Piaget en el Centro 

: nal de Epistemología 
Хх Genérica de Ginebra entre los años 
ህ , dedicó su interés al 

2 T del | proceso de aprendizaje 
n los niños y la psicología de la 


ymour Papert, el apren- 
n fenómeno de 


гот mar una computadora no significa пі más пі 


máquina. como el usuario humano puedan 
OMIM: es una de las cosas 


aprende son estrategias de resolu- 
ción de problemas y modelos de 
interpretación del mundo. Las res- 
puestas que producirá serán en re- 
lación a los problemas que le to- 
que resolver, y sus modelos de in- 
terpretación estarán relacionados 
con aquellos elementos que cierta- 
mente están a su alrededor. Las di- 
ficultades del niño en el aprendiza- 
je de la matemática se deberían 
más bien a la falta de una vivencia 
empírica y de percepciones «sen- 
soriales», que a dificultades con- 
ceptuales. 

Adquiere así una especial im- 
portancia la percepción. Por lo 
que la creación de contextos en los 
cuales se pueda desarrollar una 
praxis, que dé como resultados la 
resolución de problemas y la for- 
mulación de interpretaciones, se 
convierte en una labor fundamen- 
tal. En este tipo de situaciones la 
espontánea potencialidad de 
aprendizaje del niño se ve favore- 
cida al acercarle a su mundo «fa- 
miliar» conceptos abstractos y 


complejos; y al permitirle cons- 
truir desde su propia perspectiva el 
entendimiento de los mismos. 

Otro de los elementos de sustan- 
cial importancia en el aprendizaje 
es el propio desarrollo de la afecti- 
vidad. Es innegable que cuando el 
niño se ve afectivamente ligado a 
los elementos que le motivan, los 
resultados de su aprendizaje mejo- 
ran. Una abierta predisposición a 
la realización de tareas que sean de 
su agrado y que estén subordinadas 
a los diferentes grados del desarro- 
llo de su afectividad, proporciona 
un contexto que por estar hecho a 


su medida le resulta satisfactorio. | 


Esto permite que el estudio pase a 
ser más que una obligación un jue- 
go. 


A partir de estas consideraciones 
se desarrolló el Logo como aquel 
instrumento que permitiría a los 
niños el uso del ordenador con la 
siguiente perspectiva: la introduc- 
ción de su entorno de un elemento 
desencadenante de experiencias y 
creatividad y portador de un len- 
guaje lo más parecido al lenguaje 
natural que le permitiese dirigirlo 
y entenderlo. 

En el lenguaje Logo el niño no 
manipula entidades lógicas abs- 
tractas. Aprende a dibujar condu- 


ciendo a una «tortuga», un peque- 
ño animal que «vive» en la panta- 
lla. Algunas tortugas Logo son ro- 
bots que se mueven en el suelo me- 
diante ruedas y que se encuentran 
unidas a la computadora por un 
cable o por rayos infrarrojos. La 
representación de la tortuga en la 
pantalla es un triángulo que ellos 
pueden dirigir con instrucciones 
tan naturales como avanza, retro- 
cede, gira, etc. 

Estos movimientos de la tortuga 
están vinculados al conocimiento 
previo que el niño posee sobre su 
entorno espacial. Por lo que la es- 
trategia para realizar un proyecto 


del dibujo de una flor, por ejem- 
plo, se convierte en el plantea- 
miento de un algoritmo y en su re- 
solución, 

La relación del niño con la tor- 
tuga reúne así las siguientes venta- 
jas: 

— Es una relación lúdica. Y 
esto satisface exigencias de su desa- 
rrollo afectivo. 

— El niño ejerce el control so- 
bre el mundo de la tortuga. Lo 
hace crecer y desarrollarse en la 
medida en la que él mismo crece y 
desarrolla su pensamiento. 

— El «error» en el aprendizaje 
adquiere un contenido diferente ya 


que al dirigir la tortuga, las dife- 
rencias entre lo que le ordena y lo 
que sucede realmente se convier- 
ten en una fuente de comprensión 
más que de frustración. 

Pero el Logo no debe entenderse 
exclusivamente como un lenguaje 
de programación para niños ya 
que la geometría de la tortuga va 
unida a una amplia serie de poten- 
cialidades: la posibilidad de defini- 
ción de nuevos procedimientos 
(palabras) por el usuario que am- 
plien el microcosmos del Logo; la 


recursividad, que permite definir 
objetos en función de sí mismos; la 
manipulación sofisticada de pala- 
bras y listas; y por supuesto, la dis- 
posición de posibilidades de im- 
presión, edición y comunicación, 
así como el almacenamiento de los 
procedimientos de manera senci- 
118. 

El Logo es también un buen ins- 
trumento para aquellos padres que 
quieren que sus hijos se inicien en 
el uso del microordenador de una 
forma más positiva que la simple 


Figura 1. Comandos para comunicaciones. 


COMANDOS PARA COMUNICACIONES 


Nombre de la Instrucción Descripción 


SETSERIAL n Toma el valor de n en baudios y establece la veloci- 
dad de transmisión. Los valores de n pueden ser: 50, 
110, 300, 600, 1200, 2400, 4800, 9600 о 19200. 

SERIALIN Lee todo lo que llega al port RS232 en el valor en 


baudios establecido y nos da um byte entre 0 y 255. 


SSERIALOUT n 


Envía un byte (n) al port RS232. 


Ііснісо5, Aquí 
NO HAY NİNGUNA 
TORTUGA |! 


actitud de pulsar botones para ani- 
quilar una flotilla de extraterres- 
tres o para hacer que el personaje 
recorra decenas de pantallas reco- 
lectando objetos y sorteando obs- 
táculos. 

Otra de las importantes preten- 
siones de Seymour Papert en cl di- 
seño del Logo era que éste pudiera 
funcionar en un microordenador 
con una gran flexibilidad, con una 
buena potencia de gráficos y cuyo 
precio fuera asequible a las escue- 
las y a las familias. 

La aparición del Logo de Sin- 
clair para el ZX Spectrum de 48 
Kbytes, a tan sólo tres años de la 
primera versión realizada para un 
microordenador, el TI99/4 de la 
casa Texas Instruments Inc., ayu- 
da a satisfacer este deseo y posibili- 
ta que los cientos de miles de usua- 
rios del Spectrum ^ . &uropa pue- 
dan acercarse a este fascinante len- 
guaje. 


El logo de Sinclair 


Realizado por Les Systems 
d'Ordinateurs Logo International 
(París) y Logo Computer Systems 
Inc. (Quebec) para el Spectrum de 
48 Kbytes, la versión inglesa, que 
es laque comentaremos, se presen- 
ta en una cassette y viene acompa- 
fiada por dos manuales: El Logo de 
Sinclair 1 (gráficos de la tortuga) y 
el Logo de Sinclair 2 (Manual de 
Referencia a la Programación). Sa- 
bemos que una adaptación al cas- 
tellano ya está en marcha. 


Figura 2. Мара de la memoria, 
Variables delsistema |65533 
58 65024 
z Area de. En la elaboración de los manua- 
5 trabajo les se descubre también la finali- 
ኮው መያ reed ያ: dad didáctica del Logo. A diferen- 
LOGO cia de muchos otros manuales in- 
24832| comprensibles para los usuarios, 
Variables del sistema aquí se distingue con claridad en- 
16384| ቪር los iniciados, a los que va desti- 
5 БІЗДЕ? nado el primer volumen, y los que 
= 0000 | уа tienen una cierta experiencia de 
MAPA DE MEMORIA programación en Logo para los 
г E 
Figura3. Comandos para el almacenamiento y carga de datos. 
PROGRAMA PARA EL ALMACENAMIENTO 
YCARGA DE DATOS 
"Nombre de la instrucción | Descripción Significado 
SAVEALL * Nombre del | Guarda todo lo que hay en | GUARDATODO 


fichero. 


el área de Trabajo. 


SAVED * Nombre del fi- 
chero. 


Guarda todo lo que hay en 
el Editor. 


GUARDA EDITOR 


SAVESCR “ Nombre del 
fichero, 


Guarda todo lo que hay en 
pantalla. 


GUARDA PANTALLA 


fichero. 


por SAVESCR 


LOADD “ Nombre del fi- | Carga todo lo guardado | CARGA EDITOR 
chero. por SAVED. 
LOADSCR Nombre del | Carga {одо 10 guardado | CARGA PANTALLA 


CATALOG (sólo para mi- 
crodrive) 


Nos da el nombre del car- 
tucho y el contenido (equi- 
vale a CAT) 


CATALOGO (del micro- 
drive) 


ERASE "Nombre de fi- 
chero, Tipo de fichero. 


Borra el fichero nombrado 
del microdrive. Los tipos 
son LOG, BIN (binario). 
SCR (pantalla), TXT (edi- 
ton). 


BORRA (en el microdrive) 


cuales la lectura del segundo nivel 
será suficiente. 

El Logo de Sinclair 1 Gráficos de 
la tortuga no es una guía completa 
para el usuario en donde se expon- 
ga todo el vocabulario, sino que se 
concentra en la programación de 
la tortuga para dibujar, y permite 
la edición y el almacenamiento del 
trabajo realizado. La introducción 
del vocabulario Logo, además de 
ser gradual, está extensamente do- 
cumentada con ejemplos y con la 
propuesta de proyectos para llevar 
a cabo. Los gráficos de la tortuga 
nos permiten ver claramente «lo 
que estamos haciendo mientras lo 
estamos haciendo», por lo que se 
convierte en una excelente intro- 
ducción a la programación. 

El Logo de Sinclair 2 nos da una 
concisa descripción de todos los 
términos primitivos del Logo, nos 
ofrece un resumen de la gramática 
del Logo y abunda en todo lo que 
no fue tratado en el primer volu- 
men. Todo esto con ejemplos que 
permiten ilustrarnos suficiente- 
mente. 

El Logo de Sinclair no es sólo un 
lenguaje, constituye un sistema 
operativo completo en la medida 
del microordenador para el cual 
está concebido. Nos permite utili- 
zar todos los periféricos disponi- 
bles para el Spectrum: cassette, 
microdrive e impresora; podemos 
usar plenamente el interface 
RS232; e incluso reservar un espa- 
cio de memoria en el que imple- 
mentar «ampliaciones» al Logo. 

El programa (que ocupa 24 
Kbytes) una vez cargado deja un 
«área de trabajo» de aproximada- 
mente 7 Kbytes en la que se alma- 


cenarán los procedimientos y va- 
riables que vayamos creando o 
aquellos, que ya definidos, se car- 
guen desde el cassette o el micro- 
drive. Ver figura 2. 

Uno de los aspectos más podero- 
sos del Logo es su capacidad para 
trabajar con «procedimientos». 
Hay dos clases de procedimientos: 
aquellos a los que el Logo «cono- 
ce» y están presentes cada vez que 
cargamos el Logo de Sinclair, a los 
que llamamos primitivos, y aque- 
llos que nosotros podemos definir. 

La zona de almacenamiento de 
los procedimientos definidos por 
el usuario no se reduce a estos 7 
Kbytes de memoria. Existen co- 
mandos que permiten guardar y 
recuperar del cassette o microdri- 
ve, tanto procedimientos discretos 
como todos los que contenga el 
área de trabajo. Los comandos 
para guardar y leer del microdrive 
son mucho más sencillos en el 
Logo que en el BASIC de Sinclair. 
Basta asignar el canal con SET- 
DRIVE del 1 al 8 para el microdri- 
ve. El canal 0 será para el cassette. 
La sintaxis es siempre LOAD, 
SAVE y sus variantes. Ver figura 3. 

La introducción RESERVE n, 
reserva una zona de n bytes a par- 
tir de la dirección 65024 (hacia 
abajo), en la cual podemos cargar 
rutinas en código máquina. La car- 
ga de estas rutinas se gestiona me- 
diante el comando .BLOAD, con 
los parámetros de dirección de car- 
ga y longitud. Análogamente exis- 
te .BSAVE. La instrucción .CALL 
dirección, ejecuta un programa en 
código máquina cargado a la direc- 
ción referida 

El uso de la impresora en el 
Logo de Sinclair es también posi- 
ble. COPYSCREEN copia todo lo 
que se encuentra en la pantalla ya 
sean gráficos o textos. PRINTON 
activa la impresión de todo lo que 
escribimos en pantalla mientras 
que PRINTOFF anula esta facul- 
tad. 

El port RS232 se gestiona con 
una serie de instrucciones que per- 
miten modificar la velocidad de 
transmisión y enviar o recibir ca- 
racteres. Ver figura 1. 

Miguel Figini, 
Manuel Tristán 
y Paco Riviere 


COMO DIBUJA LA TORTUGA 


El aprendizaje de los comandos 
de la tortuga es muy sencillo y el 
resultado de su uso se observa in- 
mediatamente. Una vez cargado el 
Logo, tecleando MUESTRATOR- 
TUGA, ésta aparece en el centro 
de la pantalla orientada hacia arri- 
ba. La instrucción AVANZA 10 (o 
abreviado AV 10) provocará un 
desplazamiento de 10 pixels hacia 
arriba. La tortuga dibuja una línea 
recta en su recorrido. Del mismo 
modo podemos ordenarle RETRO- 
CEDE 10 (RT 10) y volverá al 
punto de partida sin borrar el ras- 
tro dejado. Con GIRADERECHA 
90 (GD 90) veremos que la tortuga 
gira 90” a su derecha. Análogamen- 
te existe  GIRAIZQUIERDA 
(GD. 

Con estas cuatro instrucciones 
básicas podemos orientar la tortu- 
ga en cualquier dirección y hacerla 
avanzar o retroceder la distancia 
deseada sin más que indicarle el 
ángulo o la distancia a recorrer que 
queramos. Podemos hacer que no 
deje «rastro» al moverse tecleando 
SINLAPIZ (SL), CONLAPIZ 
(CL) volverá a hacer que pinte; 
GOMA hará, no sólo que no pinte, 
sino que borre cualquier rastro ya 
existente por el que pase. 


Pero hagamos que la tortuga nos, 


dibuje algo. Con BORRAPANTA- 
LLA podemos volver a empezar 
con la pantalla limpia y la tortuga 
en el centro. Para no ser menos, 


haremos lo que todo el mundo 
cuando empieza a trabajar con 
Logo: un cuadrado. La forma más 
prosaica sería: 

AVANZA 40 GIRADERECHA 


AVANZA 40 GIRADERECHA 
AVANZA 40 GIRADERECHA 
AVANZA 40 GIRADERECHA 


Esta forma es un poco laboriosa, 
sobre todo si sabemos que а mues- 
tra tortuga le podemos decir que re- 
pita algo las veces que queramos. 
Con REPITE 4 [AVANZA 40 GI- 
RADERECHA 90] obtendremos 
el mismo resultado: Un cuadrado 
de 40 pixels de lado. 

Pero podemos hacer que la tortu- 
ga «recuerde» este conjunto de ins- 
trucciones bajo el nombre de CUA- 
DRADO (o el que nos apetezca), y 
así no tendremos que escribir todas 
las instrucciones cada vez que que- 
ramos que nos dibuje un cuadrado. 
Esto es definir un procedimiento; 
para hacerlo tecleamos: 

? PARA CUADRADO 

> REPITE 4 [AVANZA 40 GI- 
RADERECHA 90] 

> FIN 

Al poner FIN nos aparece el 
mensaje CUADRADO definido. 
El vocabulario de la tortuga ha sido 
ampliado con un nuevo término. 
Podemos ahora utilizar el procedi- 


miento CUADRADO junto con to- 
das las primitivas para definir nue- 
vos procedimientos. Si tecleamos: 
REPITE 4 [CUADRADO GIRA- 
DERECHA 90] obtenemos la figu- 
ra 4. A esto le podemos dar un 
nombre, por ejemplo, reja, y defi- 
nirlo como un procedimiento. 

Nuestro cuadrado y nuestra reja 
tienen limitaciones. Su tamaño es 
fijo. Si queremos que la tortuga di- 
buje cuadrados con tamaños dife- 
rentes podemos utilizar variables: 

? PARA CUADRADO : lado 
> REPITE 4 [AVANZA ፡ lado 
GIRADERECHA 90] 

> FIN 

Cada vez que ordenemos CUA- 
DRADO tendremos que indicar el 
tamaño del lado: CUADRADO 
10, CUADRADO 20... (véase la 
figura 5). 

Por el contrario, la instrucción 
REPITE 36 [CUADRADO 15 GI- 
RADERECHA 10] producirá un 
bonito gráfico, como se ve en la fi- 
gura 6. 

La variable lado sólo tiene valor 
al realizar el procedimiento CUA- 
DRADO, fuera de él, el Logo no la 
reconoce; es una variable local. 
Las variables locales van asociadas 


a un procedimiento. En nuestro 
ejemplo lado a CUADRADO. Si 
queremos ver el valor del lado des- 
pués de dibujarlo tecleamos... 

IMPRIME : lado 

(Para referirse al contenido de 
una variable hay que poner dos 
puntos (:) por delante.) Nos apare- 
cerá el mensaje: 

lado no tiene valor 

Una variable es global, válida 
para todos los procedimientos, si la 
creamos con la orden ASIGNA. 


Veamos un ejemplo: 

ASIGNA “lado 15 

ASIGNA hará que en cualquier 
procedimiento que se use la varia- 
ble lado, ésta tenga el valor 15. Nó- 
tese que al asignarle un valor ante- 
ponemos comillas (“) al nombre de 
la variable. Los dos puntos (:) indi- 
can el contenido de una variable y 
las comillas (^) el nombre. Pode- 
mos introducir: 

ASIGNA “lado 1+: lado 

IMPRIME : lado 
a lo que responderá 16. ¡Intente- 
mos algo menos cuadrado que un 
CUADRADO! Polígonos. Para 
ello usaremos lo visto hasta ahora. 
Un giro completo de la tortuga y de 
cualquiera que lo haga es de 3607, 
En cuadrado (ivaya otra vez!), Cua- 
tro giros de 90° dan los 360°. Pero 
si hay más lados debemos girar un 
poco menos. En resumen, el giro 
será siempre de 360° dividido entre 
el número de lados. Veamos: 

? PARA POLIGONO : lados : 
tamaño 

> REPITE : lados [AVANZA : 
tamaño GIRADERECHA 360/: 


Como veis, podemos usar más de 
una variable local en un procedi- 
miento: lados y tamaño en este 
caso. 

POLIGONO 3 20 

POLIGONO 5 20 

POLIGONO 6 20 

POLIGONO 10 20 
nos darían polígonos de 3, 5, 6 y 10 
lados respectivamente (ver figuras 
7 a 10). Esto cada vez se parecerá 
más a un círculo. ¿Es un círculo un 
polígono de infinito número de la- 
dos? 


Empezar a trabajar en 
código máquina, es empezar 
una carrera de obstáculos en 
la que la “valla” de la 
interrupciones parece ser la 
más dificil de rebasar. Al 
menos, eso se desprende de 
las dudas que los lectores de 
TODOSPECTRUM nos 
vienen planteando. Nuestro 
"experto" analiza el tema en 
profundidad. 


1 propósito que persigue un 
circuito periférico al gene- 
rar una interrupción es que 
la CPU abandone el progra- 
ma que la ocupa, a fin de 
ejecutar un programa distinto, ge- 
neralmente relacionado con la 
propia interrupción. Es frecuente 
que después de ejecutarlo, poda- 
mos volver al programa inicial, 
aunque esto depende del tipo con- 
creto de interrupción. El proceso 
suele tener marcadas semejanzas 
con el salto a una subrutina, con la 
particularidad de que se produce 
por órdenes externas. 
Para explorar las ventajas — 
incluso la necesidad— de las inte- 
rrupciones, vamos a poner una se- 


rie de ejemplos que aclararán con- 
ceptos. 

Supongamos en primer lugar 
que poseemos un gran ordenador 
que dispone de unidades de disco. 
Estos dispositivos de memoria se 
caracterizan por tener una gran ca- 
pacidad de memoria a precios re- 
ducidos, con el inconveniente de 
que el tiempo de acceso a la infor- 
mación es muy elevado. (Tiempo 
de acceso: tiempo que transcurre 
desde que se solicita la informa- 
ción hasta que se dispone de ella). 
Cuando la CPU necesita unos da- 
tos almacenados en disco, no le 
son enviados inmediatamente, 
sino después de algunos segundos. 
Tal vez nos parezca poco tiempo, 


pero en este intervalo la CPU pue- 
de realizar muchos millones de 
operaciones. Por ello sería un au- 
téntico despilfarro perder este 
tiempo. Un sistema muy eficaz se- 
ría que la unidad de disco indicara 


Varios segundos son 
suficientes para realizar 
millones de operaciones. 


a la CPU que los datos están listos. 
Para conseguir esto es necesario 
generar una interrupción. 

Para recoger la información pro- 
cedente del teclado, tenemos dos 


- 


Spectrum. Esta CPU dispone de 
dos patillas para interrupciones. 
Son la NMI y la INT. Ambas se es- 
criben con una barra encima para 
indicar que funcionan con lógica 
negativa, a saber: son inactivas 
cuando están a nivel lógico 1 y ge- 
neran la interrupción cuando se las 
lleva a un estado lógico bajo. Exis- 
ten dos tipos de interrupciones, las 
evitables y las no evitables. 


Interrupciones no evitables 


Cuando un periférico activa la 
línea NMI (Non Maskable Inte- 
rrupt, interrupción no evitable), la 
CPU ignora la instrucción que 
acaba de cargar de la memoria y 
hace una llamada a la subrutina 
que se encuentra en la dirección 
0066H (supuesto que el programa- 
dor se haya tomado la molestia de 
escribirla). Para volver al progra- 
ma que se dejó, se usará la instruc- 
ción RETN. 

Este tipo de interrupciones se 
usa cuando existan asuntos de gran 


ION 


opciones. Uno muestrearlo perió- 
dicamente, otro, detectar cuando 
se pulsa una tecla y en este caso 
avisar al ordenador del evento. En 
ambos casos, será necesario aban- 
donar el programa en curso a ins- 
tancias externas para obrar en con- 
secuencia. 

Supongamos por último que, a 
causa de un error de programa- 
ción, el ordenador está ejecutando 
un bucle sin salida. ¿Qué hacer? 
Un Spectrum puede desconectar- 
se, muchas veces con gran dolor, 
pero esta solución es impensable 
en un gran ordenador. 

Vamos a pasar de un ordenador 
genérico al microprocesador Z-80 
que es el que usa nuestro querido 


importancia que requieran aten- 
ción inmediata. El Spectrum no 
usa la línea NMI. 


Interrupciones evitables 


La línea INT se encarga de gene- 
rar interrupciones que pueden ser 
deshabilitadas por programa. Los 
que deseen profundizar más en el 
tema, estudien detenidamente la 
figura 2. 

Los programas donde existan 
constantes de tiempo (tales como 
el de la gestión de cinta o en los 
BEEP) es muy importante que la 
CPU no se sea interrumpida por 
tareas de poca importancia. Sin 
embargo dichos asuntos pueden 
tener una importancia capital en 


otros momentos (tales como la lec- 
tura de teclado que se realiza a ins- 
tancias de una interrupción cada 
20 mS). Como el periférico no tie- 
ne modo de saber si su presencia es 
deseada o se trata de una intromi- 
sión imperdonable, se ha optado 
porque sea el propio programa 
quien decida su actitud ante la in- 
terrupciones. 

Cuando la CPU empieza a fun- 
cionar, las interrupciones están 
deshabilitadas. Consecuentemente 
toda actuación sobre la línea INT 
será ignorada. Las interrupciones 
no evitables se atienden siempre. 

Cuando se ejecuta la instrucción 
El (Enable Interrupt, habilitación 
de interrupciones), la CPU estará 
en condiciones de responder a to- 
dos los requerimientos que se ha- 
gan sobre la línea INT. Si estando 
en este modo se encuentra la ins- 
trucción DI (Disable Interrupt, 
deshabilitación de interrupciones), 
se hará de nuevo, caso omiso de las 
interrupciones evitables. 


Hay dos tipos de 
interrupciones: las evitables y 
las no evitables. 


Modos de interrupción 


Existen tres modos de interrup- 
ción evitable. Para seleccionar una 
de ellas, el programador usará las 
instrucciones IM 1, IM 2 o IM 3 
(Interuption Mode, modo de inte- 
rrupción). A lo largo del programa 
se podrá pasar de unos modos a 
otros. En todos ellos será posible 
volver al punto de ruptura usando 
la instrucción RETI. Pasemos a la 
descripción de cada uno de ellos. 


— MODO 0: Es semejante a las 
interrupciones del 8080, famoso 
uP, con el que el Z-80 es compati- 
ble en sofi y hardware aunque lo 
supera en numerosos aspectos. 

El circuito que genera la inte- 
rrupción pone en el bus de datos 
una instrucción y la CPU la ejecu- 
ta. Podríamos decir que el circuito 
"suplanta" a la memoria. 


Generalmente la instrucción es 
un salto a una de las subrutinas en 
página cero (RST, ReSTart Routi- 
nes), ya que tales instrucciones 
ocupan un único byte. Sin embar- 
go nada impide que sea una orden 
de cualquier otro tipo y longitud. 

— MODO 1: Es la que usa el 
Spectrum. La CPU responde a la 


Las interrupciones del 
Spectrum producen un salto 
a la dirección 0038H. 


interrupción haciendo una llama- 
da a subrutina en la dirección 
0038H (el proceso es semejante a 
la respuesta a la NMI, pero diri- 
giéndose a una dirección diferen- 
te). 

— MODO 2: Es el modo más 
potente y ha sido pensado para 
usarse con los periféricos del Z-80, 
como el Z-80 PIO (Programable 
Input Outpui, puerto programable 
de entrada-salida) y el Z-80 CTC 
(Counter- Timer Circuit, circuito 
contador-temporizador). 

Debe existir en algún lugar de 
la memoria una tabla que conten- 
ga las direcciones (en grupos de 2 
bytes) de las rutinas de servicio. 
Cuando se produce una interrup- 
ción, formaremos un número de 
16 bits. La parte baja de este nú- 
mero la suministra cl periférico 
que genera la interrupción. La par- 
te alta será el contenido del regis- 
tro I, que habrá sido previamente 
cargado con la instrucción LD I, 
A. El nümero obtenido es una di- 
rección de memoria, que apunta a 
uno de los elementos de la tabla. 
La CPU recogerá el contenido de 
este punto y del siguiente. Serán 
respectivamente la parte baja y 
alta de la dirección de la rutina de 
servicio de la interrupción. 

Así diferentes periféricos darán 
diferentes datos con los que obten- 
dremos también diferentes direc- 
ciones de salto, permitiendo que 
cada interrupción sea atendida por 
su subrutina correspondiente. 


Para aclarar conceptos y de paso 
para responder a las cartas de nu- 
merosos lectores, vamos a tomar 


como ejemplo la rutina de RESET 
que apareció en el número 2 de 
TODOSPECTRUM. En el men- 
cionado artículo, el registro 1 guar- 
daba el valor 80H. Como el Spec- 
trum está diseñado para trabajar 
siempre en modo de interrupción 
1, los circuitos periféricos (la ULA 
es el único que tiene) no hace nada 
cuando se produce una interrup- 
ción, no pone ningún dato en el 
bus, lo que se interpreta como si 
todos los bits estuvieran a 1, es de- 
cir el dato leído es el FFH. La di- 
rección resultante será la 80ҒЕН. 
En esta dirección IADDR, está 
contenido el valor 01 81. La CPU 
realizará entonces una llamada a 


la subrutina en la dirección 
8110H, (la etiquetada como TEST 
RESET), donde se comprueba si se 
han pulsado las teclas correspon- 
dientes. Como se deduce del con- 
texto el programa no es relocaliza- 
ble. 

Algunos lectores nos han comu- 
nicado que esta rutina plantea pro- 
blemas cuando se tiene el interface 
Joystick. Incluso en algunos casos 
se llegaba a borrar la memoria. En 
efecto este hecho es fácilmente 
comprensible y debe imputarse al 
diseño poco cuidadoso de los in- 
terfaces mencionados. 


Luis Miguel 


Figura 1. Operación de la respuesta a una 
interrupción no evitable. 


Ultimo ciclo. M 


Figura 2. Ciclo petición interrupción y 


reconocimiento. 
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AUN ESTAS A TIEMPO GRAN FINAL: 


11 DE MAYO DE 1985 до 


HEMOS RETRASADO LA GRAN FINAL 


Envía rápidamente tu |. Ea rapidamente tu tarjeta de participación - de participación. | ቹ ያ. E 
кү | Diviértete consiguiendo L ul 
regalos tan estupendos 24 

como los de la "tele" — WX. — 


ን ን 


ካው ገሽ 
"up 


ሽም | 
¡Busca tu Chollo! ¡Participa y Gana: 


Concursa en casa con los protagonistas de la "tele": 
Con tu Spectrum (no importa el modelo, 16 ፅ 48 K) y la cinta del “Un, Dos, Tres...” 
podrás conseguir diversión sin límites junto con los tuyos. 
Por primera vez se te ofrece un concurso participativo para microordenador, 
donde puden competir hasta tres parejas. Y con la novedad de que el juego será 
cada vez distinto, pues siempre que conectes la cinta al Spectrum, 
te ofrecerá diferentes alternativas. 


UN JUEGO PARA DISFRUTAR CON TUS AMIGOS 
Bigote Arrocet te invita en persona a un concurso exactamente igual que el de la` tele“. 
Basta con que pongas la cinta en tu cassette y él te irá dando las instrucciones 

de este nuevo y diferente juego. Puedes conseguir premios tan sorprendentes 
como los del programa de Chicho y, por supuesto; también tiene Chollo. 
Тае cada З cassetes contiene ¡PREMIO DIRECTO!: 

Viajes, moto-vespas, sintetizadores, microordenadores 
Spectrum, QL, un montón de premios más, y el gran Chollo. 


en premios que puedes conseguir participando en la gran final. 
No pierdas más tiempo, compra la cinta del “Un, Dos, Tres! 


investronica —— 


ax v BELLTONS FEN 


MOTO VESFA 


Información y venta exclusiva en la red de Concesionarios Autorizados INVESTRONICA 


A EN EL PROXIMO NUMERO DE ESTA REVISTA | 
ው ሙዱ iiRelación de ргетіов!! 


Este juego de los espejos esta basado en el cuento hindú 
“Acercamiento al Al-mutasim”. El cuento narra la bús- 
queda del alma de Al-mutasim a través de los reflejos que 
dejaba en otros personajes. De forma similar, el juego ha 
llevado esta búsqueda a la pantalla del televisor, en una 
cuadrícula de 5 x 5 posiciones sobre la que se va forman- 
do la cara de Al-mutasin según la selección de espejos que 
se realice. Cuando ya se han formado todos sus rasgos, es 
decir, cuando el reflejo frente a un espejo no aporta nada 
nuevo al rostro del hindú (o de quien su imaginación dis- 
ponga) habra finalizado la partida y su posibilidad de ga- 
nar al ordenador. 

No es necesario entrar en detalle sobre las instrucciones 
de manejo: se ofrece completa información por pantalla, 
incluida una demostración de cómo jugar. 

Aunque los ritos del mundo oriental sean un poco dife- 
rentes, la trascendental búsqueda del alma es también 
preocupación de occidente ¿no le parece? 


Autor: Matías Vaquero 
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Aquí a su izquierda tiene el nue- 
vo ordenador personal Hit-Bit de 
SONY. Algo especial, el auténtico 
ordenador doméstico. Repetimos, 
es de SONY. 

A la derecha tenemos a una fa- 
milia. Normal. Como la suya o la 
de tantos. Con problemas o no, con 
aficiones y con ganas de tenerlo to- 
do muy bien ordenado. 

El hombre puede usar el Hit-Bit 
para resolver sus asuntos profesio- 
nales a la perfección. 

Pero también en casa HitBit 
echa una mano: contabilidad del 
hogar, agenda familiar y todo lo 
que haya que ordenar. 

Y todos los comecocos, marcia- 
nitos y monstruitos que su hijo le 
pida. Pero también una amplia ga- 
ma de posibilidades en programas 
educativos. 


HBD-50 MICRO 


Diseñado para utilizar los 
Micro Floppy Disk 
3,5 pulgadas de SO! 


%- 


1555 MANDO PARA 
JUEGOS. 


FLOPPYDISK DRIVE. Б 
El HBD-50 se conecta 
ረ al HIT ВІТ. 


El Hit-Bit, le ofrece además el 
Sistema MSX compatible con más 
de 20 marcas distintas. 

También un sistema de notas 
musicales que le permite crear sus 
propios efectos o componer una 
Partitura. 

Pero aún hay más, el Hit-Bit le 
ofrece no tan sólo la posibilidad de 
crear y realizar gráficos, si no que 
dispone de toda una serie comple- 
ta de periféricos para que su orde- 
nador se convierta en algo real- 
mente serio. Sólo Sony puede ofre- 


EL CARTUCHO MBÍ55 
LE PERMITE 


Diseñado especialmente para ALMACENAR 4 KBYTES 
DE INFORMACION HBM-16 y HBM-64 
zurdos, su manejo es sencillo PERSONAL. CARTUCHOS 


y su apariencia sumamente 
atractiva. 


el ordenador y se extraiga el 
cartucho. 2 ы! 


TAGG 


DE AMPLIACION 
DE MEMORIA. 


Insertando el HBM-16 


batería 
el HBL S5 guarda 
ique se desconecte 


cer en un ordenador de este tipo 
tantas posibilidades. 

Sin compromiso alguno. En cual- 
quier distribuidor SONY pueden 
presentarse mutuamente. Seguro 
que se entienden, piense que el 
Hit-Bit es de SONY. ¿Se empieza 
ya a imaginar lo que es capaz de 
hacer? 

Hit-Bit. Ya sabe, para lo que Vd. 
y su familia gusten ordenar. 


ORDENADOR DOMESTICO 


HiT Т 


SONY 


PRN-C41 IMPRESORA- PLOTTER EN COLOR. 
La PRNCAI le permite 
imprimir una amplia gama 
de gráficos utilizando el HIT 
BIT. Permite utilizar hojas 


de papel o un rollo continuo, 
y d texto y gráficos pueden ser 
"escritos y diseñados en negro, 
azul, rojo o verde. 
La impresora es ligera y 

con un diseño 
» práctico y atractivo 


OM-D3440 MICRO 
FLOPPYDISK. 

500 Kbytes de información 
(más de 500.000 caracteres) 
en estos pequeños 
de 3.5 pulgadas. 


а 
“Además, su carcasa protectora 


de garantiza una larga vida. 


obtendrá 16 Kbytes extra de 
memoria RAM. El HBM-64 
le ofrece 64 Kbytes 


HUE JUEG 


IF 
60 TO 


Ж: 60 SUB borrado: 


2) +ሦቆ (ጠይ)ነሃችሯ+4 


LET t=t+1 
LET t=1 


1480 
КЕМ MMMM lO Era с final UN 


PRINT AT 10,10: 


"HASTA 


Para los que tengan el progra- 
ma "SUPERCODE'" es aconseja- 
ble incorporar las rutinas 79 y 43 
para una presentación más visto- 
sa y divertida. Para ello añadir en 
la 1080 CLS: PRINT AT 10,5; 
"CARGANRO CODIGO MA- 
QUINA”; AT 12,6; “UN MO- 
MENTO POR FAVOR": LOAD 
“SCIFI CHAR” CODE 
57344,768: LOAD “UNI-NOTE 


gicamente, habrá de introducir 
estas rutinas a partir de la direc- 
ción 57344 y 64647 respectiva- 
mente). 

Este último poke es para la im- 
presión de los caracteres de una 
tipografía especial. Si se desea 
volver a los caracteres normales 
teclear POKE 23607,60. 

“UNI-NOTE S” necesita de 4 
POKEs anteas de hacer el RAN- 


64651,du: POKE 64670,h. Aña- 
diendo a esto RANDOMIZE 
USR 64647; RETURN tenemos 
una rutina que podemos llamar 
“боп”. En cualquier parte del 
programa donde normalmente 
llamamos la atención con un 
BEEP, se pueden dar valores a 
(Еђесиепсіаѕ, (spjan, (du)ración; 
si h=28 el tono descenderá, mien- 
tras que si h=29 será ascendente. 


S" CODE 6464728: POKE DOMIZE POKE 64648,ቡ. Haga pruebas si quiere o intro- 
23658,8: POKE 23607,223. (Ló- POKE 64649,sp: POKE  duzca estos valores: sp=100. 
LINEAS CONCEPTO fr [du | ከ 
220 3 "JUEGA EL... 100 | 50 | 29 
250, 690 | INPUT P$ y c$ 100 | 10 | 29 
260, 300, 740, 750 Errores 50 |30 | 28 
630 "GANADOR EL...” ӨЛЕ [55028 
1380 “PULSE UNA TECLA” 100 | 20 | 29 
1380 Antes de GOSUB borrado 50 |30 | 28. 


Añadir después GOSUB son, у en el 4.9 caso igual pero dentro de un bucle FOR ፎ] to 10: GO- 


SUB son: NEXT f 


po 


. 

No le vamos a decir que con este 
programa su ordenador pasará a 
ser “inteligente” o que con él co- 
mienza la era de “inteligencia arti- 
ficial” en el Spectrum. Lo que sí le 
diremos es que pasará un rato di- 
vertido con las contestaciones que 
le dará su ordenador. 

Se trata, en definitiva, de dotar 
al ordenador de la posibilidad de 
aprender y enseñar las diferencias 
entre un cierto grupo de elementos 
comunes entre sí. El método em- 
pleado se basa en una pregunta di- 
recta con dos posibles soluciones 
(sí/no), que dará paso después a 
dos soluciones indirectas. El pro- 
grama trabaja con el ejemplo de las 
provincias españolas, de fácil tras- 
lación hacia cualquier otro tema, 
modificando al sentencia 100. El 


esquema se muestra en la figura 1. 
El ordenador elije la respuesta y 
pregunta si es correcta. En caso ne- 
gativo, pregunta cuál es esta y en 
qué se diferencia de las demás, 
guardándola en memoria (Ver fi- 
gura 2. Los datos introducidos son 
VALENCIA y TIENE NARAN- 
JAS). Asi, la respuesta BARCE- 
LONA se convierte en una nueva 
pregunta ¿tiene naranjas?, que a su 
vez se acepta dos soluciones: 81- 
= Valencia y NO = Barcelona. ¡El 
ordenador está aprendiendo! 

Más tarde, cuando todos los da- 
tos están diferenciados, el progra- 
ma puede aplicarse a la enseñanza, 
por ejemplo dando pistas al orde- 
nador para que adivine un elemen- 
to pensado de antemano. 

El problema de grabación de da- 


Figura 1. 
GPL ESTA En La PENINSULA? 
59 (NO) 
RESPUESTA RESPUESTA 
BARCELONA BALEARES 


Figura 2. 


б rcu remet 


s / no 
TIENE NARANJAS P A 


MEER 


BALEARES 


s; / No 


ТЯ BARCELONA 


tos se resuelve mediante dos tablas. 
Una tabla numérica de dos ele- 
mentos almacena el subíndice de 
otra alfanumérica donde se en- 
cuentra la pregunta siguiente o la 
respuesta conseguida. Obviamen- 
te, la alfanumérica almacena esas 
preguntas y respuestas. (La figura 3 
ilustra un esquema de la tabla). Si 
la respuesta a la primera pregunta 
(¿ESTA EN LA PENINSULA?) es 
afirmativa, se presenta en pantalla 
la segunda respuesta. Si es negati- 
a, se presenta la respuesta tercera. 
Alintroducir un nuevo dato, se va- 
ria la información (ver figura 4). 
Ahora la segunda respuesta se ha 


ANUNCIESE 


por 


MODULOS 


MADRID 
(91)73396 62 


BARCELONA 
(93) 3014700 


E) 


bien diferenciadas si se observa 
que las respuestas equivale en la 
tabla numérica a los valres 0,0 


convertido en la segunda pregunta 
con dos nuevas respuestas, la cuar- 
ta y la quinta, 


len a dos números diferenciados 
de 0. 


Respuestas y preguntas quedan mientras que las preguntas equiva- Autor: Andres Martínez 16K 
si | мо Figura 3. si | NO Figura 4. 
2 1 
5 EN 5715 ESTA EN LA PENINSULA 
4 5] 2 | TIENE NARANJAS 
ojo 3 | BALEARES S 2 
ojo 4| VALENCIA [o [o] 
o| o 5| BARCELONA 


REM ЖЖЖЖЖЖКЖЖЖАЖЖАЖЖАЖЖЖЖЖЖЖЖ 


4 REM 

5 REM “INTELECT" 

6 REM ANDREU MARTINEZ SUAU 

7 REM ANDREU 1984 

8 REM 

9 REM ЖЖЖЖЖЖЖЖКЖЖХЖЖЖЖЖЖЖЖЖЖЖ 

10 LET sw=0 

20 PRINT "Es la primera vez qu 
e usas"'"este programa? (s/n)" 

PAUSE O: IF INKEYS$="8s" THEN 

50 TO 80 

40 IF INKEYS¿>"n" THEN 60 TO 
30 

ЕО FRINT "Te interesa cargar 


algun dato"*"de la cinta? (s/n) 


" 
ሬዕ FAUSE О: 
GO TO 80 
70 IF INKEY$<>"s" 

60 
75 LET-sSw-i 
80 DIM a(100,2): 


IF INEEY$="n" THEN 


THEN 50 TO 


DIM а%(100 


90 IF sw=1 THEN 
prepara la cinta y "” "pulsa PLA 
": PAUSE 250: LOAD "aO" DATA a 
Oz LOAD "a$()" DATA a$(): GO TO 
110 
100 LET a$(1)="Esta еп la penin 
sula": LET a$(2 "barcelona": LE 
T a$(3)2"baleares": LET a(1,1)=2 
: LET а(1,2 
110 КЕМ averiguar 


PRINT *'"Pues 


PRINT * ልቆ 6:4 T 


O £);"? (s/n)" 
140 FAUSE 0: IF INKEY$-"n" THEN 
LET x GO TO 170 


s" THEN 60 TO 


150 


140 
150 
170 50 TO 190 
180 
190 REM posibilidad 
GO SUE 43 PRINT **"Es "$a 
* » TOFI 
210 PRINT **"Estas de acuerdo? 
(5/በ)” A 
220 PAUSE O: IF INKEY$="s" THEN 
CLS : FRINT АТ 10,9;"LAÀ HE ACE 
RTADO"; "SOY UN GENIO": Р 
AUSE 250: 60 TO 325 
"n" THEN 60 TO 


Esta en la peninsula? (sn) 


Es barcelona 


Estas de acuerdo? (єп) 


Gracias por el dato. 


Gieres seguir? (s.m) 


250 IF a$(b,1)="- " THEN 60 TO 
280 

NEXT b 

FRINT 

iado": 

INFLIT 

LET as 


UB 470 


a entre E 
TO + 


a$(b+1, 
jas (х) 


310 LET 


FRIN 


FRINT 


520 FAU О: IF INKEY$= 
GO TO 120 


IF INKEY$42"n" THEN 60 ТО 


REM grabar los datos 


® | Hoqromas 


PRINT "Quier 


grabar 


que se mo 
О: IF INKEYS="n" THEN 
ІМКЕҮФ " THEN GO TO 


*"Frepara la 
JE "ad" DATA a): 
DATA 
PRINT "F 
"verificarlo 
Y "ао" DATA 
DATA a$O 


450 IF a$tx,f)=" " THEN NEXT f 

460 RETURN 

470 FOR LEN a$(b) TO 1 E 
WA THEN МЕХ 


(ቁ ¡AHORA! 


4 
ÁN 

Y ¡FULGURANTE AYUDA 
PARA EL MEJOR ORDENADOR! 


AL FIN FLOPPY DISK PARA EL SPECTRUM 
CON NUESTRO INTERFACE EXCLUSIVO: 


Sistema operativo en EPROM 

Utiliza sólo 128 bytes de memoria del Spectrum. 
Permite acceso aleatorio 

Capacidad para tres unidades de floppy totalmente 
standard de 5 1/4". 

Compatible con Drives de 40 y 80 pistas, de una o dos caras. 
Maneja un máximo de 1,2 Mbytes. 

Emplea los comandos del Spectrum. 

Protegido con “password*. 

Facultad de Merge de programas en Basic. 

Gran facilidad de empleo. 


TAMBIEN EN STOCK TECLADOS PROFESIONALES, 
INTERFACES DE IMPRESORA, ETC. 


AMPLIA GAMA EN SOFTWARE Y HARDWARE. 


PIDA CATALOGO MAS DETALLADO A: 
2 299 Sistemas Lógicos Gerona 


m 9 
Apartado 380 - 17000 GERONA 
Teléf. (972) 75 84 31 — 237100 


Modul alimentación Incorporgda conec- 
#66150 af Bus de expansiones del Spectrom, 


Todas las funciones de mando del, Interface 
se ejecutan por software desde el Teclado. 


Control automático de TX/RX desde teclado. 
Editor de textos Incorporado. 


Nueve páginas, de memoria para la edición de 
Tres Ps Hrs pra 


* Textos preprogramados 


Rt РТВ Pera recorder dos 


፻6515111989 de guardar los textos editados 


en casette o en 


К ДЕЧ ፳፻ (5 blts de dato, 1 de start, 


81ተ de stop dinámico en recepción. 
Velocidades de Rx/Tx:45.45-50-75-100-110 bd 
Standard alto y bajo de frecuencia/shlft Rx 
Standard alto de frecuencla/shlft en Tx. 


Sr ne dee 5515 do 7% (по importa 


Dlitres,setlwos que  proporclonen una muy 
excelente recepción. 


Salida de AFSK para cualquier 
Sallda SK para transcelvers que dispon- 
AAN e Шар 
Instrucciones completes de utllIzación, 


PVP: 17.450 


francel ver. 


OTRO PRODUCTO 
110 €) sistemas Lógicos Gerona,SA. 


¡Apartado 380 - 17080 GERONA Teléf. (972) 23 7100 


© 


dispone de un Spec- 
trum. Además de las vo- 
cales, con este pequeño 
programa podrá obtener 
también el signo de inte- 


rrogación de admira- 
ción. La rutina propia- 
mente dicha va de las 
instrucciones 9000 a 
9180. 


m. 
Tra ከጠመመ TECLAS. тин 


Caracter Resultado Teclas 
— aacentuada: á A 
— eacentuada: é E 
46 — iacentuada: [ I 
— Oacentuada: ó 0 
— uacentuada: ü U 
— letra й; N 
NO) S — letra N: M 
ሙ * е l.*: о 
; ты — del Р 
Afortunadamente con tiene. Pero si quiere ser — NIE ፥ ር 
el ordenador no hay pro- riguroso, el ejército le ЕУ 5 1 H 
blemas con los acentos: echa una mano, o al me- E с 
siempre se le puede пов е! Teniente Coronel E 
echar la culpa que no Castillo, quien también Autor: Rodolfo Castillo 16K 
80 PRINT АТ 18,4;"R-»"; FLASH 
3 1,04%; PLASH O AT 18 00 É->"; FL 
pat Una rutina para textos | ASH 3:8", FLASH ОАТ 18,14; "I-> 
(en Español. Ejemplo práctico: | IEA መርስ) агат 15,19 
“Еп 35 Línea de playa y en ui 22. የጤ ን! „FLRS В 
88 piso pasamos el Ultimo vera ፡*።፡ 0-57 PLASH i;"07; FLASH 
Pero añorando el campo pró- 1 99 A አመሽ ወ уу ossis 
Фо. ¿Qué tendrá (a campiña?» j^; ELA i 5 LIMIT 
Bisous s aire Bé LL ON; FLASH ወ ይቶ BO 1. 0-7 
tas srárico рир". FLASH i LAS 
521222211552. be, 21;*0- pn H 
Dae с. የይ P k j 
[еза з» а 100 LLIST ; COPY : GO TO 9999 
aron REM Rutina c cteres españ 
s 
2100 DIM a(11) 
2108 DATA_65,69,73,79,85,78,80,8 
38 ጾ 1,67,72,77 
9.3 5310 FOR ізі TO 11: READ a(i): М 
5 
8 espa 9120 DATA 6,156,56,4,60,68,59,0 
20 6 9126 DATA 8,16,58,6£,120,64,60,0 
30 R 9132 DATA 8,16,0,48,16, 16, 56,0 
Іс 9138 DATA 8,16,56,56,68,66,56,0 
40 C 9140 DATA 8,16,68,68,68,68,56,0 
Una ru 9145 DATA 24,0,50,34,34,34,34,0 
райо. 9182 DATA 0,224,160, 240,0,240,0, 
MOS 8158 DATA 0,224,160,224,0,224,0, 
5 
ro año 9160 DATA 0,15,0,15,32,68,60,0 
мо, ሩክ 9162 DATA 2,16,0,16,16,16,16,8 
бә PR 9183 DATA 56,66,98,82,74,70,68,0 
RES (а ans DEA 2168 FOR izi TO 11: FÓR ій TO 7 
70 PRINT RT 15 2170 RERD d T ^ 
estos gráficos:"; 2175 POKE USR CHRS$ а(1)%3,4 
ZENZEJZZZEZZEZXEZ 9180 NEXT Jj: NEXT i: RETURN 


Camtivo de base 


Lo confesamos, aunque no nos 
guste presumir de ello, aunque re- 
conocemos que para muchos care- 
ce de todo interés, aunque más de 
uno haya tenido graves problemas 


de los problemas con que se puede 
uno encontrar en la constante tra- 
ducción de unas bases a otras. Este 
programa pretende facilitar un 
poco esta labor. Al igual que una 


Hogramas 


Su manejo es muy sencillo. Al 
ejecutarlo aparece el menú de op- 
ciones en pantalla, pudiéndose tra- 
bajar en base binaria, decimal y 
hexadecimal. 


calculadora, no es estrictamente 


con ello... inos gusta el código má- d e 
necesario, pero puede ser muy ütil. 


Autor: José Félix 16K 


quina! Y por ello sabemos mucho 


JOSE FELIX ALVAREZ 
БІМ-НЕХ 14/10/1984 


ዝተ ት እየ ነክ ዓዱ ሐዛጁ 
ЖЖККЖЖКЖЖКЖЖЖЖЖКЖЖКЖЖЖЖ 
césCabecera de bits. 


K KKK KEKO KK ЖЖ ЖЖ ЕЖ ደ ጾ ጃጁ 


+ 


FACTURACION/Spectrum y QL 


Comercial 4 


Un solo programa que engloba varias funciones orientadas a 
facilitar la gestión comercial de pequeñas y medianas empresas 
Maneja 20 ficheros diferentes, 10 para articulos соп 10D articulos cada 
fichero (01. 400 artículos cada fichero). y 10 para fichas con 25 fichas 
cada uno (01. 100 fichas cada fichero) de clientes, proveedores 
distribuidores, etc. Los articulos incluyen: codigo. concepto, precio 
venta, cantidad stock y coste Las fichas incluyen: clave. nombre 
calle, población. provincia 
El programa permite ejecutar 
— Facturas (hasta 10 articulos) 
Pedidos (hasta 10 articulos) 
Ofertas (hasta 10 artículos) 
Listado de almacén (1.000 artículos) (0L = 4.000 articulos) 


APLICACIONES 


e BASE DE DATOS è LENGUAJES Listado da precios 
Fichi Maili (250 dir es) (QL = 1.000 direcciones). 
e TRAT TEXTOS ө PASCAL En su PUC асым Mp: 
€ HOJA DE CALCULO e FORTH ` ተ VEU EU DU шк 
ichefes. actualizar ЕНЕДІ вота 
e GRAFICOS * ENSAMBLADOR ele. blica atados fichas [auno Generale preci br 


ciento). introducir articulos o fichas. borrar artículos о fichas 
clasificar fichas. cambiar formato de las columnas о lineas de 
impresión. actualización automática de cantidades en stock 0 
cualquier variación produc moditicaciones!..memo- 
rización automática de istados por pantalla o 
scroll automático que Шаг cualquier lecla o vuelve el 


¡APRENDE A USARLOS! 
menú соп la letra 0. listados por impresora baja automática al 


CURSILLOS DE FORMACION facturar o alta al hacer pedido. fecha de listados 
PARA DISEÑO DE PROGRAMAS Las facturas incluyen fecha. número. МІР. 6 formas de pago a 


elección 10 conceptos máximo. precio unitario y total. toal nete 
VISÍTANOS 


¡CONÓCELOS! 


descuentos. |” E. importe total. linea de texto para fechas de 
vencimientos e Impi muestra en pantalla el total de la factura (ШІ 
para vencimientos). linea de texto para insertar cláusula especial fija 
impresión por pantalla o impresora. 


DE VENTA EN TIENDAS ESPECIALIZADAS ዐ 


ALSI comercial s.a. 


Antonio López. 117. 2. D-28026 MADRID - Telf. 475 43 39 


GA 


À ‚ World- -Micro sa. 


yas 


à y 


Avda. del Mediterráneo, 7 
Tels. 251 12 00 y 251 12 09 - MADRID 7 


ዞ ትች ቶቶት ዩ፳ ሕዛ KKK K 
Introducion de datos. 
# ። ሐጅ ተ ተ ይ አአ IO 


be=""; 


"deci: 


INFUT “Numero de 
LET dec2=deci 


OOOO OOO OKK KKK OK 
Detecta el rango. 
ЖЖХЖЖАЖЖЖЖЖЖЖЖЖЖЖЖЖКЖЖХЖ 


КЕМ 
IF deci«sO OR decl:65575 THE 
М PRINT #1; BRIGHT 1;"Error num 
ero fuera de rango": BEEF 2,2 


FAUSE 50: GO TO 160 

О IF deci?zO AND deci 
EN БЕТ Dit : GO TO 300 
240 LET bits-16 


REM 
REM ЖЖХЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖКЖ 
REM Calcula + b$zNumero 
binario: h$-Numero hexa 
decimal. 
280 REM ЖЖКЖЖХЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
290 REM 
ЗОО PRINT #1; BRIGHT 1; FLASH 1 
"Calculando resultados" 
ts-i ТО 0 STEP -1 
L (deci/2fTn) 
О LET deciedeci-digitoXINT (2 


+О IF digitozi THEN LET b$-b$ 
*STR$ digito 
SSO IF digito?-1 THEN LET b$=b 


$+CHR$ (digito+48) 
NEXT n 

IF bitssB THEN 
d ecc: 

LET 


LET long=16 


LET digito-INT (dec2/16Tn) 
LET dec2=dec2-digitoxINT (1 


О IF digitox10 THEN (ЕТ h$sh 
$+S5TR$ digito 
440 IF digito?»-10 THEN LET ከቆ= 


h$-CHR$ (digito+55) 
450 NEXT n 

460 REM 

470 КЕМ ЖЖЖЖЖКЖЖХЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
480 REM Imprime resultados. 

490 КЕМ ЖЖЖЖЖХЖЖХАЖЖАЖЖЖЖЖЖЖЖЖЖЖ 
500 REM 

510 FRINT с% 
71 PAPER 1: BRIG 
PRINT TAB long; 
2 FOR n=1 TO LEN b$ 
S30 IF b$(n) О" THEN 


FRINT В 


RIGHT 13 INVERSE 13b$(n)3: GO ТО 
550 

540 FRINT BRIGHT isb$ín); 

35590 NEXT n 

SéO FRINT " "3 PAFER 4; BRIGHT 
1;Һ%;" h": GO TO 160 


-¡FEDCBASS 
-¡FEDCBASS 
-ітяосваэ 


GIR 


Б M 
НЕНІ ІНЕН ЕЕ ШЕЕ fimm 
[ш ТІН diras ps ШЙ Шш um [| 


0) [1 9 III Є 
Tm xal ele шт р ጆ 


Como programar 
aventuras 


El castillo embrujado 


(7942/0.5 


Ayudado de las teclas 
0 y 1 podrá desplazarse 
de izquierda a derecha y 
a la inversa. El objetivo 
es evitar la inundación 
que a buen seguro ocu- 
rrirá si no se da prisa. 
Dado que las «gotas» 
tienen un tamaño consi- 
derable y que su «reci- 


piente» no es demasiado 
grande, sólo caben tres 
gotas por viaje, que pos- 
teriormente habrá de pa- 
sar a su amigo del piso 
inferior. (Los caracteres 
gráficos aparecen su- 
brayados). 

Autor: Emilio Florido 
16K 


Programas /Juegos/Mentajes/ Codigo Maquina 


AÑO 11 - Núm. 15 - Febrero1985 - 250 Ptas 


s USU: 
8089. РАВО ህን 5 Li 
DE 


BY ፦. para 
| “ው መጨው 
መ. 


ሠ] Les adjunto una nueva versión de la rutina de 
RESET publicada en el número 2 de su revista TO- 
DOSPECTRUM. 

Esta versión sería compatible incluso para las 
máquinas de 16 K y se ubica en una sentencia REM 
al principio del programa. 

Les envío mi modificación por si consideran con- 
veniente publicarla en un futuro número de su re- 


941 ፡ዛዛሄዙ RESET әк 


vana 00093 ORG 23760 
E E 

05 RAMTOP EQU S5CB2H 
5030 DOVOS ERRSP EQU 5С30Н 
5ር74 06987 FLAGX EQU $С71Н 
5038 00005 FLAGS U  SC3BH 
OCORA 00009 POMSG Еш) 0COAH 
1289 90010 МАІМ. EQU 12A9H 
ФОБЕ 00911 CLSLOU EQU QD6EH 
1601 90012 CHOPEN ЕШ) 1601H 
5000 00015 
5536 90014 
5000 3549 00015 ACTIV LO ጸ,25 
5CD2 ED4? 90015 Lo LA 
5504 EDSE 00017 іп 2 
5206 C9 00018 RET 
5¢07 90819 
5007 52455345 00020 TEXTO ПЕРМ 'RESET exe 
5208 54206578 cuted” 


SCDF 65637574 
564 


5ር53 6 

SCES АІ 00021 DEFB OR1H;'!' i 
nverso 

5СЕ6 00023 

5ር56 FS 00023 ENTRY PUSH AF 

5ዕ5/ ЗЕРЕ 80024 LO — R,OFEH 

SCE9 DBFE 00025 IN Я, (9ሾ፻ዘ) 

5ርኛ5 ጊዞ 90226 RRA 

SCEC 3807 20027 JR C,NORES 

SCEE 3EBF 0023 LO  R,OBFH 

SCFO DBFE 10029 IN A,COFEH) 

БСР ጊዞ 0030 RRA 

50፻3 3004 00031 JR — NC,RESET 

Ser5 F1 90032 NORES POP AF 

SCF6 FF 20033 RST_ 55 

5CF7 ED4D 00034 RETI 

50F9 50035 

SCF9 2A625C 29636 RESET LO |, (RRMTOP 

SCFC 28 00037 DEC HL 

SCFD F9 00038 LD SP,HL 

5СҒЕ 26 20629 DEC HL 

SCFF 25. 90040 DEC ዚዜ 

5000 225050 41 LD (ERRSP),HL 

5003 RF 90042 хок 

5004 327150 00043 0 (FLAGX),A 

5007 С08116 0044 CALL CHOPEN 

SDOR CD6EQD — Qü04S CALL CLSLOU 

5000 215852 00045 LD. HL FLAGS 

5010 СВӘЕ $204? RES , (HL) 

5012 a3 90943 IN IL 

5013 CBEE 79049 SET 5, (ML) 

5015 AF 00950 Хк A 

5016 110652 00051 LO DE,TEXTO-1 

5019 СОФАФС 09053 CALL POMSU 

5010 FB 09652 El 

5010 C3A912 00054 JP MARINA 

5020 00 10055 МОР 

5021 00 00055 NüP 

5022 1802 00057 JR ENTRY 

5024 00058 

5024 ЗЕ: 00059 DESACT LD 8,55 

5026 ED47 00068 ІШ ILA 

5048 5ር56 00061 IM 1 

5058 CS 00062 RET 


PROGRAMA CARGADOR 
1 REM 


10 RESTORE 
851 


FOR і-22760 TO 25 


20 READ a: 


POKE i.a: NEXT i 
,25,237,71,237,94,20 


191,219,254 
37,77,42,178,9 
,61,92, 175,50, 1 


vista, ya que lo considero de interés para muchos 


lectores. Aitor García de Mardones 


Vitoria 


[s] El programa que nos envía está basado en el que 
apareció en el número 2 de TODOSPECTRUM so- 
bre la creación de una tecla de RESET. Se puede 
usar en máquina de 16 K ya que el contenido del re- 
gistro de interrupción I es menor que 40. Sin embar- 
go, no podrá usarse con el interface I conectado, ya 
que almacena el programa al principio de la zona de 
BASIC. 

Para usar el programa, se tecleará el listado BA- 
SIC y después de ejecutarlo el REM se habrá con- 
vertido en línea 0, imposible de borrar o sobreescri- 
bir. Si borramos el resto del programa, podremos 
usarlo cuando deseemos haciendo uso de la instruc- 
ción MERGE. 

Para ponerlo en funcionamiento escribiremos 
RANDOMIZE USR 23760 y para deasctivarlo, 
RANDOMIZE USR 23845. 


[Р] Еп la revista número 1, página 20 (Peek & poo- 
ke), variables 23552-23559 (Kstate) y refiriéndome 
al programa nümero 2 en la tecla SPACE el valor 
que me da a mí es de 32, no de 33 como publicáis 
vosotros. ¿El error es vuestro o es mío? Si es mío, 
isabéis por qué y cómo lo puedo solucionar? Dis- 
pongo de un ordenador Spectrum 16 ampliado a 48 
interiormente y el distribuidor es Sitelsa. 
María Teresa 


IN efecto, en el número 1 de TODOSPEC- 
TRUM se deslizó un error. Donde dice que el valor 
que corresponde a la tecla SPACE es el 33, debe de- 
cir 32, que es su valor en código ASCII. No tema, 
pues su Spectrum funciona perfectamente. 


Barcelona 


[Р] Quería comentarles que el pro- 14,0 y la 32496 por 0,0,14,8,14,2, [Р] Hemos realizado el circuito 


grama 64 caracteres del número 1 14,0, que son la «S» y la «s», res- impreso del interface publicado en 

puede mejorarse bastante. Para pectivamente. Además he añadi- el número dos, encontrando un pe- 

ello he sustituido los datos de la di- do: queño error en el circuito práctico, 

rección 32240 por 0,14,8,14,2,2, según el cual la pata 9 va unida a la 
12 cuando debiera ser la 12 a la 8. 

Daniel Molla 

Toledo 


[R] Gracias a usted pudimos com- 
probar que se había deslizado un 
pequeño error en el circuito que se 
mostraba. Reproducimos el circui- 
to impreso a que se hacía alusión 
en el artículo. 

Así mismo, las instrucciones 
GOTO de los programas 2 y 3 de 
las líneas 1010 deben decir GOTO 
1010 en vez de GOTO 7310. 


con el fin de poder cambiar de INPUT los he sustituido por sus 
mayúsculas y minúsculas con homólogos con INKEYS, como se 
CAPS LOCK además de evitar vea continuación. 

confusiones al contestár a las pre- Santiago Cárdenas 
guntas. Por último, los ciclos de Málaga 


ГЕ | Procuramos hacer una rigurosa grama es susceptible de mejoras. 
selección. No obstante, todo pro- Gracias. 


[GOSANEZ 


[Р]ме he visto agradablemente 
sorprendido por la publicación de 
la entrevista con nuestros colabo- 
radores programadores Joan Sales 
y Oscar Domingo. Quedaría muy 
agradecido que hicieseis constar 


Elme gusta el “montaje” del ca- 

lendario de 1985, pero no me salen 

las cuentas. ¿Creía que diciembre 
siempre tenía 31 días? 

Jose Antonio 

Madrid 


que dicha entrevista tuvo lugar en 


nuestro local, que el equipo y ma- | 


terial del que se habla en la entre- 
vista y que aparece en las fotogra- 
fías es de nuestra propiedad, y que 
está a disposición de todos los pro- 
gramadores con ideas que tengan 
ganas de colaborar con nosotros, y 
que pueden ponerse en contacto 
con nosotros personalmente, por 
teléfono o por escrito. 


Josep-Oriol Tomás 
Director de Ventamatic 


[R] Estamos seguros que más de 
uno le tomará la palabra y, por su- 
puesto, el IBM-PC. 


[R]ya hemos tomado medidas: 
iHemos castigado a Gusánez a no 
tocar su nuevo Spectrum plus du- 
rante un mes! Pero antes le hici- 
mos retocar la línea 130 para que 
después de diciembre colocase el 
nümero 31 en vez del 30. 


[F]cái es la dirección de la RU- 
TINA (CALL) para limpiar toda la 
pantalla. En el ejemplar 2 de TO- 
DOSPECTRUM repiten la misma 
dirección para toda la pantalla que 
para el BORDER. 
Antonio López 
Manresa 


[s] En efecto en el artículo mencio- 
nado las rutinas de borrado de pan- 
talla y de la parte inferior de esta 
tenían unas direcciones erroneas. 
Para eleminar los textos escritos 
en la parte inferior de la pantalla se 
llamará a la rutina de la dirección 
OD6EH (3438). La dirección de 
borrado de pantalla (CLS) es la 


OD6BH (3435). Unas rutinas muy 
cortas que pueden ser de gran inte- 
rés debido a su velocidad son las si- 
guientes: 


¿Borrado de imagen 


8,17ሾዞዘ 
LD  ML,B7FFH 
Ш не 
ш он 
ш EL 
бес E 
LOOR 
t RET 
3095 90129 ¡Nuevos atributos 
БУ 901: 
09295 ФіғҒ 0 00140 RUTA LO 50,0፪ሾኞክ 
9011 21FF5A 00250 LO НС, Бан 
ela 5907 09359 tb (HL), 000 
1118; AT 
18 54 99179 ір DH 
097 50 029129 EL 
0918 ір 00359 ር E 
0019 в 0፪209 ሯ 
9018 (5 00239 RET 


Ісотсһо 
о 


dan en 


Una ea pue 


ros 


tos, dep TUM 
DOS indicando en 


Mo se admitirán 


jlicitario- 
arácier public 


orrección, 
paración téc 


"ca de libros de 
AS Q 
ic 
E 


INTERESADOS 


Z 


Llamar de 9 de la mañana a 5 
de la tarde. (91) 245 82 05/04 
(preguntar por la Sta. Olga) 


“El más vendido en los dos últi- 
mos meses es el Spectravideo, se- 
guido del Spectrum y Commodo- 
re", comenta Antonio Sánchez de 
Ada Computer-Zaragoza, quien 
confiesa recomendar MSX a sus 
clientes “porque la informática 
tiene que unificarse y los japoneses 
van por este camino". Mariano 
Martínez, de Sinclair Store- 
Madrid, no se muestra tan conven- 
cido: “es absurdo gastarse 60.000 
ptas., porque tenga una gama que 
le haga compatible con otra serie 
japonesa. Del MSX vendemos el 
Spectravideo porque es un ordena- 
dor muy serio de gestión y trabaja 


'ánchez apuesta por el MSX. 


а 
Pasada la euforia de la compra de ordenadores 

domésticos efectuada en las navidades, dos expertos 

en ventas evalúan el mercado del Spectrum frente a la 


ofensiva de otros ordenadores. 


con CPM, lo cual no ocurre con 
otros ordenadores MSX”. Las ven- 
tas en esta tienda madrileña son fa- 
vorables al Spectrum: “De cada 
diez ordenadores, siete son Spec- 
trum (normal y plus) y el resto se 
reparte entre Amstrad, Spectravi- 
deo y Commodore, aunque este úl- 
timo está quedando absolutamente 
desplazado, en nuestra opinión 
porque no se ha cuidado la comer- 
cialización. 

Es curioso detectar una cierta 
incertidumbre sobre el QL, cuya 
comercialización “oficial” a través 
de Investrónica se espera para estas 


destacamos: 


SPECTRUM. 


— CODIGO MAQUINA. Nuestros lectores tienen la palabra. 
— SINCLAIR QL: Comienza la ofensiva en España. 
— SISTEMAS DE ALMACENAMIENTO DE DATOS EN 


fechas, una vez resueltos los pro- 
blemas aparecidos en la primera 
versión. Los stocks de QL de los 
entrevistados parecen hacer prever 
buenos augurios para el nuevo or- 
denador de Sinclair, a pesar de la 
ofensiva nipona. Antonio Sánchez 
cree que son sectores distintos: 
“Los QL que hemos vendido han 
sido siempre para profesionales y 
sobre todo universitarios, en tanto 
el comprador del Spectravideo 
piensa generalmente en los juegos 
y aplicaciones para los chicos”. En 
términos similares respondería su 
homólogo de Madrid: “El Spectra- 


Y para la primavera podemos prometer y prometemos mucho más. 
A la continuación del montaje sobre Lápiz óptico que permita su 
programación, y del Logo, para acabar de dominar la tortuga, 


Para Mariano Martínez el Spectrum sigue siendo 
la estrella. 


video es un buen ordenador profe- 
sional, pero tiene un gran proble- 
ma: su nombre. Lo primero que se 
piensa es que es un ordenador para 
jugar”. 

Por el momento el Spectrum si- 
gue siendo el más vendido, aunque 
sólo sea, en muchos casos, simple- 
mente por eso. Y para el más ven- 
dido, mayor número de programas 
para un público cada vez más ma- 
duro, como comenta Mariano 
Martínez: “Los padres demandan 
más programas didácticos y los 
chicos ya no se conforman con el 
simple juego de marcianos. El 
mercado ahora es más selectivo, 
pero entre unos y otros, la batalla 
la siguen ganando los adictos a los 
juegos. Sólo el 30 por 100 del sofi- 
ware vendido para Spectrum, co- 
rresponde a aplicaciones”. 


La versión española de Popular Computing 


LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 


Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 


ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 

Ya está a la venta 

E <HHI A ' 


Cómprela en su kiosco habitual o solicítela a: 


Bravo Murillo, 377 
Tel. 7339662 
28020 -MADRID 


Tenemos absolutamente ї0005105 títulos del mercado... 
¡iy a los-mejores precios!! 


oia | А == із (fosa: 
ATIC АТАС FIGHTER РАОГ” FULL THROTTLE БЕАСҤҢЕАР SABRE WULF KNIGHT LORE LORE UNDERWÜLDE MATCH. POINT DECATHLON” PYJAMARAMA. 


¡Todas las eintas n? \раға 6 Spectrum a 1250 PIT. 


Programas en mictodriveypara Spectrum. 1 A 
Trans-Express (5. 09079) Programas en глісгодгіме para QL 


Base de Datos e-ENSAMBEADOR — FORTH 
Lote + Contabilidad • -DESENSAMBLADOR PASCAL 


y lo último del mercado 
E — T 
“SOMOS PROFESIONALES 


VO MURILLO, 2 (аро. gratuito en С/. Magallanes, 1). Tel: 446 62 31 
BECO DE LEON 26 (opoe luto ወ Су Nez de Boon TIA та 261 88 01 MADRID 


¡Consulta ens 


[wa Lay] 


а д 
VENTAMATIC 


TECLADO PROFESIONAL PARA 
ZX-SPECTRUM MODELO LO-PROFILE 


+ PRO 
CESADOR DE TEXTOS CONTEXT V.6 (ambos 
64 caracteres/linea). Precio, normal: 8.000, 


4) JUEGOS 48K 3D: FULL THROTTLE + ANDROID. 
TWO + DEATHCHASE + TORNADOLOW LE 
VEL + CODENAME MAT 


Oferta: 7.800. 


INTERFACE 1 + ZX-MICRODRIVE + 51.7.1 

+ CONTEXT V.6 + 2 CARTUCHOS VIRGENES 

ZX-MICRODRIVE. Frecio, normal: 46.150,— ptas. 
Oferta: 39. 


YEN A CONOCERNOS.Somos los SUPER-ESPECIA- 
LISTAS DEL SPECTRUM y lo tenemosTODO para TU. 
SPECTRUM, SOLICITA CATALOGO COMPLETO 


r n. 
clio 


GASTOS DE ENVIO: 
TOTAL: AS 
Señalar con una cruz la forma de pago: 
(СҮ Talón adjunto (sin gastos de envío) 
( ] Conta-rcembelso (500.-- ptas. gastos envio). 
( ) Giroposaln, (sin gastos de envio) 
(C) Tarjeta VISA/MASTERCARD ሀ. 
Caduca: 
Firma: (S00, — plas. gastos envio). 


